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Algumas idéias que vão ajudar seu micro 








AS-1000 


o micro que cresce com voce. 
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sa O Microcomputador AS-1000 

é uma ótima escolha para quem está 
iniciando na ciência da computação. Seus 
recursos de programação e sua concepção 
modular, porém, permitem que ele 

CARACTERÍSTICAS TÉCNICAS: es va une. upreaçoss mass 

« Expardão Interna cara Sae! O AS-1000 já nasce com uma biblioteca de 

48 K milhares de programas para jogos, 
- indnes de memória EPROM administração doméstica, aplicações 


o de membrana com comerciais e profissionais. 
DO onde smp O AS$-1000 é fabricado com a qualidade 
e Basic e linguagem sõe máquina  ENGEBRÁS e garantido por um ano. 
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O Cobra 305 
quer trabalharna 
sua empresa. 


Expe 


Administração e Controle de Repre- 
sentação de Terceiros 


Administração de Aluguéis 
Administração de Condomínios 
Administração de Construtoras 


Administração de Loteamentos e 
Imóveis 


Administração de Transportadoras 
Administração Hospitalar 


Apuração de Custo por Curva de Ser- 
viços UNIMED 


Armazéns Gerais 
Arrecadação Tributária 
Ativo Fixo 


Ativo Fixo com Correção Anual em 
Cruzeiros, Dólares e ORTNs 


Ativo Fixo com Correção Mensal, Tri- 
mestral e Semestral em ORTNs 


Business Calc 
Cadastramento e Custos de Equipa- 
mm. mentos 

E». Cadastramento 

» Genérico 
Cartão de 

». Crédito 

Cartórios 







; riência, 
anterior nas seguintes 
funções: 












































Contas a Pagar para Cooperativas 
Contas a Receber g 
Contas a Receber com 
Controle de Contratos 
Contas a Receber Industrial 
com Emissão de Duplicatas 


Contas a Receber para Dis- 
tribuidores de Medicamentos 


Contas a Receber para Coo- 
perativas | 
Contas a Receber - Radiologia À 


Controle de Condomínio e 
Aluguéis 


Controle de Consórcios 
Controle de Contribuintes 
Controle de Estoque 


Controle de Estoque 
Comercial 


Controle de Estoque 
para Comércio de 
Pneus 


Controle de 
Estoque de Roupé 


Cobrança 
Consórcio 


Conta-Corrente e Contabilidade 
Integrada 


Contabilidade 


Contabilidade com Fechamento Au- 
tomático em Cruzeiros e Dólares 


Contabilidade com Multivolume 
Contabilidade com Orçamento 


Contabilidade com Resultados 
Operacionais 


Contabilidade Comercial 
Contabilidade Especial 
Contabilidade Geral 


Contabilidade Geral para Pequenas 
Empresas 


Contabilidade Gerencial 
Contabilidade para Bureau 
Contabilidade para Cooperativas 


Contabilidade para Entidades de Pre- 
vidência Privada 
Contabilidade para Escritórios 


Contabilidade para 
Usina de Açúcar 


Contabilidade 
Pública 
Contas a Pagar 


Contas a Pagar para N 
Construtoras 


Controle de Estoque- Distri- 
buidores de Medicamentos 


Controle de Estoque-Revende- 
dores 


Controle de Estoque-Varejo 


Controle de Fornecimento de 
Cana por Peso 


Controle de Produtividade de Cana 
Controle de Mateniais 
Controle de Pedidos 


Controle de 
Custo de 
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Sysdafa 


Você só descobre o quanto precisa de um Micro-Com- RN Srsdat: 
putador JR da Sysdata depois que o conhece de perto. 

Você vai ter certeza de que fez um ótimo negócio ao 
= cai: A Dn Er 


O JR da Sysdata é rápido, é versátil, é compacto. 
APLICAÇÕES: 


Contabilidade, controle de contas a pagar, controle de 
contas a receber, folha de pagamento, controle de esto- 
que, controle de clientes, relatório de clientes, mala direta, 
cálculos de orçamentos financeiros,controle de processos 
industriais, cálculos de engenharia, cálculos de estatísti- 
cas, funções matemáticas, funções lógicas em cadeia de 
caracteres (STRINGS), gráficos, jogos animados, progra- 
mas educacionais. 

O JR PERMITE AINDA: 

O acesso a grandes sistemas de computação, a comuni- 
cação entre os departamentos de Empresa, efetuar pro- 
gramas específicos para cada Empresa. 

E, como se não bastasse, ele é o Micro-Computador de 
menor preço do mercado. 

Com todas as qualidades que tem, o JR da Sysdata nem 
precisava ser tão econômico, Mas é. 

Afinal, ele é o mais completo Micro-Computador de sua 
geração. 

Inclusive no preço. 


V AV. PACAEMBU, 788 

N sdafa , 

Você pode testar estas e outras qualidades do JR em yS CEP 07155 - TEL: 67.5900 
qualquer dos nossos revendedores. 





REVENDEDORES: SÃO PAULO /Capital - Ad Data 8564.8200, ADP System 227.6100; Búcker 8831.7955; Cinótica 36.6961, Compumarketing 212.9004; Compute 5852.8533; Com 
putertand 231.3277; Fato Léo 35,7131; Fotótica 853 0448; Guedes 2899051; Horst 2093.5597 interface 852.5603: Lema 210.58929: Microres 881.0022: Miprotec 289,4941; Nova Gera 
ção 814.3563; O.P.A. 35.8685; Plandata 2775.0181; Plantel 5439653; Sacco 814.0588; Servimec 222. 1511; Sistenac 282.6509; 5.0.5. 66. 7656, Runner's 4569.0887: Campinas 

Computer House 852.5855, Computique 326322; Microtok 32 4445: Rio Claro - Comi. Micro Cosmos 34 5801; Ribeirão Preto - Compusys 6325.1195 - Araras - Copec 41.3775 
Taubaté - Ensicor 33 2252: Mogi Guaçu - Guaçumag 2681.0236; Bragança Paulista -infordata 5435198 Bauru; Marília - Sipro 33.4109, Catanduva Teledaito 22. 8119; RIO 
DE JANEIRO /Capitai Clap 228.0734; Computique 267. 1093; G DM Informática 284.8744; JR de Góes 246.4180; Kristian 391.3165; Suprimento 274.8845; Petrópolis - Foto Ot 
ca 42 1391; MINAS GERAIS / Belo Horizonte - Compucity 2268.6336; Computec 225.2617; Kemitron 2250644; Menas Digital 337. 7546 de prrórm Caldas - Computique 721.5810 
RIO GRANDE DO SUL/Porto Alegre - Advancing 26.1194; Aplrec 240465; Digital 24 14117 Microsis 22. 9782; Pelotas - Sistematika 22 3810: Novo Hamburgo - Micromega 


83 4721 PARANÁ Curitiba - Computique 2431731; Micro System 232.353; Mormgen 2320583; Ponta Grossa - Grupo Duma Me emory 24 61 91: Londrina - Shop Computer 
23.9674 GOIAS Goiânia Casa do Merocomputados 2723.1165: Grupom 225. 8226; SANTA CATARINA /Florianópolis - € astro 24 2 6933: | infotec 23.4777 BRASÍLIA/ Distrito 
Federal - Compushow 273.2 2 128; Digitec 7225.4534, MATO GROSSO DO SUL/Campo Grande - DFL 3872.6487: Video 3214220, CEARA /Fortaleza - Siscompy 2544.4651 


PARAÍBA / João Pessoa - Medusa 221,6743 PERNAMBUCO /Recie - Elogua 241 1358 
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| EDITOR DE TEXTOS 

— Deixe as palavras 
fluírem livremente em suas 
cartas, artigos e relatórios. O 
trabalho de composição será 
feito por este utilitário, 
escrito por Ivan Camilo da 
Cruz especialmente para você 
e seu micro TRS-80. 


2 O NEWDOS QUE 
NÃO ESTÁ NOS 
MANUAIS — A maioria dos 
usuários da linha TRS-80 
usa, mas poucos o conhecem 
a fundo. Neste artigo, Renato 
Degiovani fala sobre a 
estrutura do NEWDOS/80, 
explicando ainda como 
manipular seus registros. 
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CONTROLE AS DESPESAS NO MICRO 
— Programa de José Rafael Sommerfeld. 


PIL, A FERTILIDADE PROGRAMADA - 
Programa de Armando Oscar Cavanha Filho 
e Maria Beatriz de Campos Cavanha. 


3 CÁLCULOS PRECISOS EM BASIC — 


Artigo de Akeo Tanabe. 


CTP/M ou COMO TRATAR PISCINAS 
NO MICRO — Programa de Fernando César 


de Oliveira Galli. 


INTEGRAÇÃO NUMÉRICA — Programas 
de Carlos Alberto Mattana e Rogério 


lerusalimschy. 
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3 MICRO BUG — O 
início de uma 
caminhada que MICRO 
SISTEMAS se propõe a 
seguir com quem possui um 
micro Sinclair; vamos 
construir, passo a passo, um 
sistema utilitário em 
linguagem de máquina, 
tirando todas as dúvidas 


as formas de programação 
utilizadas. 


A GERAÇÃO RADIO 
5 ()suack — Apesar de 
certas incompatibilidades, a 
família TRS-80 continua 
unida, e aqui traçamos seu 
perfil nacional: os modelos, 
seus contrastes, recursos, 
software, o que pensa o 
usuário, tendências do 
mercado e demais 
características. 


64 ORÇAMENTO DOMÉSTICO — Programa 


de Luiz Gonzaga de Alvarenga. 


6 OTIMIZE SEUS PROGRAMAS EM BASIC 
— Artigo de Carlos Alberto Yamana. 


7 PROFESSOR PICAPAU — Programa de 
Roberto Quito de Sant Annaa. 


80 CURSO DE ASSEMBLER — XV 


SEU PROGRAMA MERECE UMA BOA 
APRESENTAÇÃO — Programa de Eduardo 
Hauff. 


20 smmra Tópicas 

28 eirs 78 CLASSIFICADOS 
LIVROS E 

47 xaDREZ 84 MENSAGEM DE ERRO 


(antigas e novas) e discutindo 














uro que é verdade. Conheço uma 

pessoa que, quanto maior a infla- 

cão brasileira mais acredita no 

Brasil como um eldorado. Em- 

bora alerta para a possibilidade 
de tratar-se apenas de mais um naciona- 
lista em estado de delírio profundo, de- 
vo admitir que acho nele uma ponta de 
razão. Realmente numa economia está- 
vel, as chances de se ganhar dinheiro 
com novos empreendimentos, salvo em 
raros setores, é consideravelmente me- 
nor pela própria acomodação do contex- 
to econômico. Ao passo que, num am- 
biente de. 240% de inflação anual, mui- 
tas chances são criadas. 

De fato nossa crise, da qual o índice 
inflacionário é causa-produto, gera mui- 
tas oportunidades aos empresários so- 
breviventes. Vejam que falo nos elemen- 
tos economicamente ativos aqueles 
que investem — e não do segmento liga- 
do à especulação, atividade que, em cri- 
se, prospera paralelamente as oportuni- 
dades e é, não raro, confundida com 
elas. 

No caso particular da indústria de 
informática, a dupla crise-oportunidade 
não está só. Este segmento tem vivido, 
paralelo aos problemas, o benefício da 
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reserva de mercado para certas áreas, 
especialmente a de fabricação de equipa- 
mentos de menor porte, entregue ex- 
clusivamente as empresas nacionais. 

Com isto, o que vimos no ano passa- 
do - e a tendência parece persistir em 
dd —- é o crescente desenvolvimento e 
capitalização destas empresas. Algumas 
delas, que antes da explosão deste mer- 
cado eram bem pequenas ou nem mes- 
mo pensavam em existir, estão hoje ocu- 
pando honrosos primeiros lugares no 
ranking nacional. 

A indústria de periféricos também 
demonstra claramente estar com pé fir- 
me no caminho de uma otimização de 
sua performance econômica, alcançando 
altos índices de nacionalização em seus 
produtos. 

Recente estudo da Abicomp, entida- 
de dos fabricantes da área, mostra ainda 
que a indústria nacional de informática 
gerou em 83 perto de 5000 novos em- 
pregos, absorvendo parcela considerável 
de mão-de-obra especializada, principal- 
mente nas etapas de desenvolvimento 
e pesquisa. 

Este contexto que levou ao desenvol- 
vimento da área mesmo atraves da crise 
não se limita, contudo, na reserva. Den- 
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tre os outros fatores do cenário, esta 
uma tendência a centralização das deci- 
sões na esfera federal através da SET, ór- 
gão ligado ao Conselho de Segurança 
Nacional e que vem acumulando fun- 


ções “normativas” como determinar 


quem poderá produzir o que e quando. 

Para os que se opõem a esta ingerên- 
cia governamental, e bom lembrar que 
este núcleo centralizador, se por vezes 
exacerbou uma mera posição de contro- 
lador do mercado, também serviu de im- 
portante garantia para que a situação 
não se alterasse face as pressões sofridas 
no sentido de abrir a reserva. 

E agora que a discussão sobre uma 
política nacional de informática vai che- 
gar com toda força a Brasilia, sendo 
apreciadas pelo Legislativo algumas pro- 
postas de projetos de lei, certamente 
vamos chegar a um consenso: o saldo é 
positivo. 


Os artigos assinados são de responsabilidade úni- 


cae exclusiva dos autores. Todos os direitos de re- 
produção do conteúdo da revista estão reservados 
e qualquer reprodução, com finalidade comercial 
ou não, só poderá ser feita mediante autorização 
prévia. Transcrições parciais de trechos para co- 
mentários ou is edição podem ser feitas, desde 
que sejam mencionados os dados bibliográficos 
de MICRO SISTEMAS. A revista não aceita mate- 
rial publicitário que possa ser com ma- 
téria redacional. 


MICRO SISTEMAS é uma publicação mensal da 


Qui Análise, Teleprocessamento e 
Informática Editora Ltda. 
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KODAK 
KOMSTAR 


À avançada tecnologia do raio laser para 
converter os dados de saída de computador 
em imagens prontas para uso. 


As Processadoras/impressoras de Microimagens Kodak KOMSTAR são verdadeiros 
periféricos de computador, que oferecem notáveis melhoramentos nas operações de 
saída de dados, ao mesmo tempo em que reduzem os custos operacionais. 

































































Permitem ainda a obtenção de títulos em vários tamanhos, microfichas com índice 
em diversos formatos. Tudo com rapidez e perfeição, sempre. Mas além dessas, existem 
outras vantagens que você precisa conhecer. 


Não espere mais tempo. Envie hoje mesmo o cupom abaixo, solicitando o Guia 
Kodak para as Processadoras/Impressoras de Saída de Dados de Computador. 
Você verá, em detalhes, tudo o que as Processadoras/Impressoras Kodak KOMSTAR 
podem oferecer. 


Ao receber seu Guia, você estará abrindo as portas de sua empresa para a mais 
avançada tecnologia existente no mundo da informática, Uma tecnologia que tem a 
garantia de uma marca que você conhece e confia: Kodak. 


| CUPOM DE RESERVA GRÁTIS | 
í Sim, quero receber gratuitamente o Guia Kodak para as Processadoras/Impressoras de Saída de j 
Dados de Computador. ; 
| NBT mess cima sic ps dA CO] Id SÓS A (a pa Pr ponto on eve ta aa OUR ; 
vg AEE RED OD E paes RD RIOS 710 1 
: RENO rsniino re e a f 
| ENCIÓFOCO........rtasestensvssveyeemarensaso nsaonepeerentnoero compondo ente tasusos de stvsdas Cla nivire seres pedais foRdsssca vcs pinndnalhea ra ananas satesnbnssdacstabnssssiiniosanasêni j 
À 8 E APR GIDADE-... assa SS Tá SÁ SS si ESTADO sospnamasasasaaão | 
(A Kodak atenderá os pedidos por ordem de chegada e na medida dos seus estoques). ; 


e 


Departamento de Sistemas Micrográficos 
KODAK BRASILEIRA COMÉRCIO E INDÚSTRIA LTDA. 
Rua George Eastman, 213 e 05690 e Tel.: (011) 542-0M e São Paulo e SP 
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O sorteado deste mês, que receberá uma 
assinatura de um ano de MICRO SISTEMAS, 
é Rogério Saran, de São Paulo. 


NEWDOS 80 2.0 


Achei muito interessante e oportuno o 
artigo de João H. V. Mattos, publicado em 
MS nº 25, página 30, abordando os siste- 
mas operacionais existentes para os micros 
compatíveis com TRS-80 le III. 

Gostaria, no entanto, de fazer um repa- 
ro sobre o que foi dito em relação ao 
NEWDOS 80 2.0: este DOS não deixou de 
utilizar o conceito de grânulo, mas passou a 
adotar o conceito de /ump (bloco, pedaço) 
na subdivisão do disquete, levada em conta 
pelo diretório. Assim, a alocação de espaço 
que era feita através de grânulos e trilhas 
passou a ser feita por grânulos e /umps. No 
NEWDOS 80 2.0 há cinco setores por grânu- 
lo, e dois a oito grânulos por /ump. O ma- 
nual, que realmente não é muito claro, ex- 
plica isso nas páginas 2-37 e 10-7. 

Para localizar onde começa um /ump, de- 
vemos levar em conta os parâmetros SPT (sec- 
tors per track) e GPL (granules per lump) 
do PDRIVE, e lembrar que há sempre cinco 
setores por grânulo. Por exemplo: no DIG- 
DOS (cópia do NEWDOS 80 2.0), temos: 
SPT = 18, GPL= 2e DDSL = 36, isto é, 
o diretório começa no /ump 36, que equi- 
vale à trilha 20: 

36 Lx2G/Lx5S/G . 
185S/T 





20 T 


José Ribeiro Pena Neto 
Belo Horizonte-MG 


Mandamos a sua observação para João 
Henrique Volpini Mattos, autor do artigo 
“DOS: um para cada usuário”, e este nos 
respondeu: 

“O Sr. José Ribeiro Pena Neto está absolu- 
tamente certo. Segundo as próprias pala- 
vras do manual do NEWDOS/80, a utiliza- 
ção do conceito de /umps permite que um 
grânulo se inicie em uma trilha e termine em 
outra (...), maximizando o número de seto- 
res por trilha enquanto mantém o diretó- 
rio com o mesmo formato”. 

João Henrique Volpini Mattos 

Niterói-RJ 


LOJAS DE MICROS 


Vimos por meio desta lembrar à equipe 
que elaborou a matéria “Lojas de Microcom- 
putadores”, “publicada no nº 27 de MICRO 
SISTEMAS (dez./83), que o CESPRO — 
Cursos de Especialização Profissional Ltda, é 
também revendedor de microcomputadores. 

Provavelmente esta equipe não lê a 
própria revista que faz, ou então não demons- 
tra nenhuma consideração por um cliente 
que já anunciou mais de dez vezes neste 
conceituado veículo (...). 

Engs. Lourival J. P. Moreira e Jesse W. Costa 
CESPRO-RJ 


Verificando o nº 28 dessa revista, 
constatamos que o nosso nome não se 


encontra na matéria “Lojas de Microcompu- 
tadores” (...). 

R. R. Soares 

Diretor Comercial da Servimec S.A. 


A equipe de MS apurou, num trabalho 
inédito e sério, cerca de duzentos endereços 
de lojas, aos quais foram enviados questioná- 
rios. À fonte inicial deste levantamento foi, 
obviamente, através das próprias páginas da 
revista, sendo que nossos anunciantes foram 
os primeiros a receber nosso questionário. 
Temos arquivado todas as lojas às quais 
remetemos o questionário-base para nossa 
matéria “Lojas de microcomputadores”. 
Infelizmente, nem todas as lojas responde- 
ram à nossa pesquisa. No caso do CESPRO, 
enviamos o questionário no mês de setem- 
bro, conforme consta em nosso arquivo, e 
não obtivemos resposta. 

Como todos os dados constantes da 
tabela de lojas são transcrições das informa- 
ções prestadas pelas lojas através do questio- 
nário, não podemos em nenhuma hipótese 
nos responsabilizar pela ausência de informa- 
ções sobre esta ou aquela loja que não 
respondeu à nossa consulta. 

A equipe de MS gostaria de informar à 
Servimec que, por ter respondido ao nosso 
questionário, informações sobre esta empre- 
sa foram publicadas em MS nº 27, pois por 
motivo de espaço fomos obrigados a des- 
membrar a matéria em duas partes (MS nºs 
27 e 28). 


CRIE UM ESPAÇO EXTRA 


Sou leitor assíduo de MICRO SISTE- 
MAS porque ela é a melhor revista de mi- 
crocomputador atualmente. Mas deixo aqui 
minha reclamação: programas apresentados 
na revista têm muitos erros. Não sei se são 
erros de impressão ou dos autores. Por 
exemplo: em MS nº 25, pág. 115 (matéria 
“Crie um espaço extra em seu disco"), li- 
nha 180, mais precisamente no POKE BUF 
+ |,J, apresenta um erro de quantidade ile- 
gal. Espero uma solução! 

Carlos Alberto Selbach 
São Paulo-SP 


Embora tenhamos testado e verificado o 

programa, não encontramos nenhum erro, 
mas, como é nossa prática habitual, entra- 
mos em contato com o autor do artigo, 
Nelson Filho, e este nos mandou a seguinte 
correspondência: 
“Em atenção ao leitor Carlos Alberto, devo 
informar que revi a listagem publicada e ne- 
nhum erro foi encontrado, A listagem pu- 
blicada é cópia fiel do programa que tenho 
em mãos, e que foi novamente rodado sem 
apresentar nenhum problema. 

Vamos, entretanto, analisar o erro rela- 
tado, para tentar ajudá-lo: você afirma que 
na linha 180, exatamente na declaração 
POKE BUF... encontrou erro de quantidade 
ilegal. O manual de BASIC afirma que, nu- 
ma declaração POKE X,Y, o valor de X 
deve ser maior que -65535 e menor que 
65535, e Y deve ser maior que O e menor 
que 255. Caso isso não aconteça, e somente 
assim, aparecerá a mensagem de quantidade 
ilegal. 

Observando a listagem do programa pu- 
blicado, por analogia podemos constatar que 
a expressão BUF + | tem que ser maior que 


"65535 e menor que 65535, e J maior que 


O e menor que 255 para que não ocorra 
erro. Observe também que o valor de BUF 
é fixo e é declarado na linha 420 
(BUF = 4096). O valor de | está na mesma 


linha 180 (FOR |=1 TO 33), e irá variar de 
1333,logo,o valor de BUF + | vai variar de 
4097 a 4129, o que está correto. 

No caso do J, seu valor é declarado na 
linha 460 através de uma declaração do tipo 
DATA. Assim, na linha 180, para rodar | 
será lido um J correspondente. Você mesmo 
pode verificar que na linha 460 não existe 
nenhum valor de J que seja menor que O 
ou maior que 255. Portanto, não há erro, 
nem pode ter havido o que você mencio- 
nou, a não ser que seja erro de digitação, Se, 
por exemplo, você omitiu alguma vírgula na 
linha 460, poderá acontecer que algum va- 
lor fique maior que 255, pois se não digitar- 
mos a vírgula existente entre 166 e 45 (pri- 
meira vírgula), o primeiro valor de J será 
igual a 16643, que é maior que 255, 

Reveja com atenção o programa; você 
certamente irá encontrar algum erro de di- 


gitação.” 


ESCLARECIMENTOS 


Fiquei muito satisfeito ao ver meu pro- 
grama “Riscos, rabiscos e criatividade” pu- 
blicado em MS nº 27. E é justamente para 
alguns esclarecimentos o motivo desta: no 
programa publicado está escrito que, para 
salvar somente o programa, deve-se digitar 
RUN 340. Não me lembro de ter escrito 
isso na carta que acompanhou o programa, 
mas parece-me que isso não é muito práti- 
co, pois na hora de recuperarmos o progra- 
ma, este parará na linha 310 UNPLOT Y,X, 
já que as variáveis não estarão determinadas 
neste momento, pois foram apagadas quan- 
do se digitou RUN 340. Minha idéia era a de 
que, para guardarmos o programa, com ou 
sem desenho na tela, primeiro deveríamos 
executar o programa (RUN) e depois pres- 
sionar RUBOUT (SHIFT+0), pois então as 
variáveis seriam determinadas. 

Com relação à dica “Arquive no vídeo”, 
publicada na Seção Dicas de MS nº 23, que 
sugere arquivarmos algum desenho no vídeo 
com a rotina em LM apresentada, tenho a 
impressão de que não é muito útil, pois o 
Loop de transferência (LDIR) manda o ar- 
quivo de vídeo (fonte) para a memória no 
endereço a partir de 31000 (destino) e isso 
não funciona na hora de quardarmos algum 
programa em fita, pois o desenho arquivado 
não é transferido para a fita. 

Carlos Takayuki Honda 
Mogi das Cruzes-SP 


Houve realmente um erro da revista com 
relação a seu programa; você está correto 
quanto ao RUN 340. Pedimos nossas des- 
culpas. Com relação à utilização da dica 
“Arquive no vídeo”, esta abre um novo ho- 
rizonte na programação dos micros. Para 
utilizá-la, deve-se proceder da seguinte for- 
ma: ligue o micro e digite POKE 16389, 121. 
Logo após, dê o comando NEW para que se- 
jam reservados os bytes do arquivo, A se- 
guir, digite uma linha REM com 27 carac- 
teres e introduza os códigos da dica “Arqui- 
ve no vídeo" (MS nº 23). Digite o programa 
“Desenhe no vídeo” (MS nº 27, pág. 40) e 
proceda à sua utilização normal. 

Vamos supor que você tenha escrito um 
programa interessante e queira fazer uma 
abertura bem bonita. Faça um desenho no 
vídeo com o programa “Riscos, Rabiscos e 
criatividade” e use a dica “Arquive no ví- 
deo”; arquive o seu desenho com RAND 
USR 16514. Depois, elimine o programa 
“Desenhe no vídeo”" e digite o seu, manten- 
do a linha REM com os códigos de máqui- 
na. Para gravar em fita, use a sequência: 


2 RAND USR 16526 

3 SAVE “nome do programa” 

4: 

E depois digite o comando GOTO 2. 

Isso evita perda de tempo na gravação 
em fita, pois todos os programas são arqui- 
vados no cassete com o vídeo, quer tenham 
algo impresso ou não. Assim, quando imagi- 
namos a apresentação de um programa, po- 
demos também usar linhas PRINT em vez de 
ter todo este procedimento, mas se usar- 
mos linhas PRINT não poderemos ter as fa- 
cilidades do programa “Desenhe no vídeo” e 
teríamos que gravar a apresentação duas ve- 
zes (uma no grograma e outra no vídeo, cu 
um vídeo em branco). Como a rotina “Ar- 
quive no vídeo” deixa esse arquivo fora do 
SAVE, com este procedimento economiza- 
mos tempo de gravação. 


COLABORANDO COM MS 


Gostaria de ser colaborador de MICRO 
SISTEMAS. Como devo fazer? 

Mais duas coisas: a revista está uma mara- 
vilha, e espero que continue a publicar todos 
os artigos de Renato Degiovani, pois os 
jogos em Assembler são maravilhosos. Agora 
a segunda coisa: espero que esta carta seja 
publicada! 

Eduardo Caribé 
Rio de Janeiro — RJ 


Af está a sua carta publicada, Eduardo. E 
com relação a colaborar conosco, é facílimo: 
mande sua colaboração datilografada, com 
todas as explicações e exemplos de aplicação 
bem detalhadas para que não tenhamos 
nenhuma dificuldade para entender e testar 
(no caso de ser programa). Se tiver listagem, 
pedimos que seja datilografada (a experiên- 
cia nos mostrou que é a forma mais fácil de 
evitar transtornos), e se tiver desenhos, 
fluxogramas ou quaisquer figuras, solicita- 
mos o máximo de detalhamento para que 
nossa equipe de arte possa identificá-los 
perfeitamente. Não se esqueça de mandar 
também um breve currículo (do tipo que sai 
sempre na revista) e de dizer para qual 
equipamento foi desenvolvido. Junte tudo e 
mande em duas vias para a Redação — MS: 
Rua Visconde Silva, 25, Botafogo, CEP 
22281, Rio de Janeiro — RJ. Assim que 
recebermos seu material, nossa assessoria O 
analisará, e logo que tivermos um posicio- 
namento entraremos em contato com você. 
Por fim, a equipe de MS agradece os elogios. 
Até breve. 


MS AGRADECE 


(. ..) Queremos parabenizá-los pela exce- 
lente qualidade da revista: não cansamos de 
divulgá-la entre nossos alunos como um dos 
mais perfeitos subsídios para aqueles que se 
preparam em Informática. 

Roberto Villani 
Villarosa Empreendimentos Culturais 


Acompanhamos esta revista desde o seu 
primeiro múmero, e sentimos que sua 
qualidade gráfica e editorial vem se aprimo- 
rando e melhorando a cada número editado. 

Gostar íamos, portanto, de parabenizá-los 
e também de agradecer o total apoio que 
esta revista vem prestando à nossa loja 
(Microdata) e a todas as outras lojas em 
todo o território nacional. 

Narciso de Campos Junior 
Gerente de Marketing da Microdata 


Sou leitor assíduo de MICRO SISTE- 
MAS e sinto orgulho disso. As matérias são 
sensacionais (sem sensacionalismo, o que é 
mais Imoportante!) e tratam com a maior e 
mais possível clareza de todos os assuntos 
referentes à área a que ela se destina. 

Outra observação é quanto a um curso 
que esta revista anuncia: o CEDM — Curso 
de Eletrônica Digital e Microprocessadores, 
de Londrina. É que sou aluno deste curso há 
mais de um ano e digo: é um curso de pri- 
meira qualidade. 

Luiz Carlos P. de Souza 
Rio de Janeiro — RJ 


Quero agradecer pela atenção com que a 
revista me forneceu as fórmulas do progra- 
ma Afinidades, bem como agradecer ao Sr. 
Bruno Barrasch 
Robinson S. Pereira 
Rio de Janeiro — RJ 


Embora seja difícil fazer sugestões para 
a melhor revista brasileira no ramo, tenho al- 
gumas: 
— Sugiro transformar a revista em um ma- 
nual standard para consultas, de forma a tor- 
nar-se um soft para todos os computadores 
no Brasil; 


— Separem os assuntos: propaganda deve ser 
separada dos textos; 

— Os índices devem ser muito mais explica- 
tivos: em ordem alfabética dos assuntos e 
dos autores, em separado, em todas as edi- 
ções; e também um (Índice anual, em ordem 
alfabética, dos assuntos e dos autores; 


— Fazer Índice dos anunciantes: alfabético 
por assunto e alfabético por anunciante (fir- 
mas), tanto mensal como anualmente; 

— As revistas devem ser encadernadas de ma- 
neira tal que uma pessoa interessada em tex- 
tos possa mandar encadernar no fim do ano 
só com os textos e com o Índice geral 
anual. E as propagandas também poderiam 
ser encadernadas separadamente com índice 
anual; 

— À numeração das páginas, tanto das pro- 
pagandas como dos textos, deveria ser con- 
tínua durante o ano todo. 

Boris Cerne 

João Pessoa-PB 


Tenho a seguinte sugestão: façam uma 
seção, mesmo que pequena, dedicada às cal- 
culadoras, e nela incluam não só programas, 
mas também comparações e descrições de 
diversas calculadoras. 

Rogério Saran 
São Paulo — SP 


Tenho duas sugestões: que se faça uma 
parte da revista dedicada somente a TKs 
e compatíveis, e outra somente para calcula- 
doras. 

Wilson Prado de Souza 
Nilópolis-RJ 


Gostaria que fosse feita uma matéria so- 
bre os endereços do Sistema Operacional do 
TI. 

Leonardo O. Metran 
Goiânia —- GO 





Envie suas sugestões para MICRO 
SISTEMAS. Elas serão anotadas em nossa 
pauta e procuraremos, na medida 

do possível, viabilizá-las. 
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Para quem vive às voltas com cartas, relatórios ou artigos para escrever 
e tem um micro da linha TRS-80, este editor de textos virá bem a calhar 








Editor de textos 


ste artigo apresenta um mini- 
editor de textos que roda em 
computadores compatíveis 
com o TRS-80 modelos 1 e III. 
Ele é um editor full screen, ou seja, o 
cursor se move por toda a tela modifi- 
cando o texto diretamente — isso facili- 
ta muito a tarefa de desenvolvimento e 
modificação do texto. Além disso, o 
próprio editor imprime o texto em im- 
pressora, formatando-o de acordo com 
as especificações do usuário, o que o 
torna extremamente útil na edição de 
cartas, relatórios, memorandos etc. 
O editor roda em micros com 48 Kb 
de memória e sistema operacional NEW- 
DOS. Para transformar o programa para 
outro sistema ou para uma configuração 
menor de memória, faça as modificações 
sugeridas no final do artigo. 


VAMOS A ELE 


Após digitar, rode o programa. Logo 
depois de imprimir o cabeçalho, o pro- 
grama apaga a tela, coloca o cursor no 
canto superior esquerdo e os números 
1 —1 na penúltima linha. Os dois nú- 
meros indicam, respectivamente, a linha 
e a coluna da tela onde está o cursor. 

Como já foi dito anteriormente, o 
cursor pode mover-se pela tela. Experi- 
mente movê-lo usando as teclas com se- 
tas de seu teclado e veja que o cursor só 
vai até a décima quarta linha. Isto acon- 
tece porque as duas últimas linhas são 
reservadas para mensagens do sistema e 
para a introdução de dados de controle. 
As teclas “seta à direita” e “seta à es- 
querda” são usadas junto com a tecla 
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<SHIFT > para fazer tabulações. 

As 14 linhas de texto que aparecem 
de uma vez na tela equivalem a uma pá- 
gina. O editor, quando estiver rodando 
em 48 Kb, pode manipular 31 destas te- 
las, totalizando 434 linhas. 

Experimente agora digitar caracteres. 
Você verá que, à medida que os digita, 
eles são impressos na tela e o cursor se 
move. Tente, usando as setinhas, mover 
o cursor sobre os caracteres digitados. 
Observe que o cursor “passa por cima” 
dos caracteres sem apagá-los. Agora, se 
você posicionar o cursor sobre um cará- 
ter e então digitar outro, este último 
substituirá o primeiro (o que estava 
“sob” o cursor) e o cursor se move. É 
assim que se pode modificar o texto. 

Além das setinhas, você pode mover 
o cursor usando as teclas <CLEAR > 
e <ENTER> (ou <RETURN>).A 
tecla <CLEAR> coloca o cursor na 

rimeira coluna da primeira linha da tela 

OME). A tecla <ENTER> moveo 

cursor para a primeira coluna da próxi- 
ma linha. 





COMANDOS ESPECIAIS DE EDIÇÃO 


O editor tem um conjunto de coman- 
dos de edição para facilitar o trabalho 
de quem escreve. Estes comandos são 
usados para: 

2 e e deletar caracteres (comando 

C); 

e inserir e deletar linhas (comando L); 

ler um arquivo do disco (comando O); 

e escrever um arquivo no disco (coman- 
dos Ge F); 


e imprimir um texto (comando W); 
e comandos auxiliares (comandos B, E, 
NeP). 
Para acessar estes comandos, use a 
seguinte sequência: 
e pressione a tecla <SHIFT> ea 
mantenha pressionada; 
e pressione a tecla “seta para baixo” e 
a mantenha pressionada; 
e pressione a tecla de comando (B, €, 
P etc.). 
Estes comandos podem ser divididos 
em quatro grupos, de acordo com o tipo 
de dados que eles pedem: 


1 — comandos que pedem um dado nu- 
mérico (C, L, P); 

2 — comandos que pedem uma especifi- 
cação de arquivo (F, G, O); 

3 — comandos que pedem uma letra S 
ou N(B,E); 

4 — outros (N, W). 

Vejamos, então, com mais detalhes, es- 
tes comandos um à um. 


GRUPO 1 


Comando C — O comando C pede um 
dado numérico que pode ser um inteiro 
negativo ou positivo. Se o inteiro for 
positivo, o editor inserirá espaços em 
branco na posição em que o cursor esti- 
ver. Se o inteiro for negativo, o editor 
deletará caracteres a partir da posição 
do cursor. O número de caracteres in- 
seridos ou deletados é igual ao valor ab- 
soluto do inteiro digitado. 

Comando L — O editor inserirá ou dele- 
tará linhas de acordo com o sinal do pa- 
râmetro. No caso de um dado positivo, 


MICRO SISTEMAS, abril/84 


a inserção será feita antes da linha onde 
está o cursor. 
Comando P — Passa páginas. Se o intei- 
ro for positivo, o editor passará para 
uma página posterior à que está na tela; 
se for negativo, o editor voltará a uma 
página anterior. O número de páginas 
passadas é igual ao valor absoluto do 
dado. 

Em todos os comandos do grupo 1, 
se não for digitado o dado pedido, o edi- 
tor assumirá o valor 1. 


GRUPO 2 


Comando F — Grava o texto no arquivo. 
Este e todos os outros comandos deste 
grupo pedem uma especificação de ar- 
quivo onde o texto será gravado. 
Comando G — Mesma função do co- 
mando F, com a diferença de que o co- 
mando G grava o arquivo de modo com- 
pactado, truncando os espaços em bran- 
co que sobram no final das linhas. O co- 
mando G é mais lento que o comando 
F, mas economiza, em certos casos, um 
substancial espaço em disco. 

Comando O — Lé um texto previamente 
gravado em disco. Tudo que estiver na 
memória será apagado e sobreposto pelo 
novo texto. No final da leitura, a pri- 
meira página estará na tela e o cursor em 
HOME. 

Para todos os comandos do grupo 2, 
se não for digitada a especificação de 
arquivo, o comando será cancelado. Se 
for digitado um sinal de igual ( =), 0 
editor usará a última especificação utili- 
zada em um destes comandos. 


GRUPO 3 


Comando B — Pára o programa. Ao pa- 
rar, o editor perde todos os dados que 
estão na memória. Por este motivo, a te- 
cla < BREAK > é desativada. No en- 
tanto, o comando B pede uma confir- 
mação S/N antes de parar (isto evita aci- 
dentes). 

Comando E — Apaga a memória para 
edição de outro texto. Assim como o 
comando B, este comando pede uma 
confirmação antes de ser executado. 


GRUPO 4 


Comando N — Não pede nenhum dado, 
simplesmente imprime a posição atual 
do cursor dentro do texto, isto é, o nú- 
mero da linha e da página onde está o 
cursor. 


Comando W — Imprime o texto. Este 
comando pede dois dados numéricos in- 
teiros. O primeiro é a tabulação à es- 
querda, que indicará o número de espa- 
ços em branco a serem deixados à es- 
querda do papel. É útil para centralizar 
o texto. O segundo é o número máximo 
de linhas que serão impressas por fo- 
lha, permitindo colocar uma margem no 
topo e no pé da página. Fomnecidos es- 
tes dados, o editor esperará que o usuá- 
ro posicione o papel corretamente na 
impressora para depois começar a impri- 
milo. O comando W oferece ainda uma 
flexibilidade a mais: com ele você pode 
provocar uma alimentação de folha antes 
de ser alcançado o fim da página .Paraisto, 
basta colocar a string //| no início da li- 
nha do texto onde a alimentação deve 
ocorrer. 


ATENÇÃO PARA AS 
MODIFICAÇÕES 


Algumas modificações podem e de- 
vem ser feitas pelo usuário. A primeira 
delas refere-se ao sistema operacional a 
ser utilizado. Na figura 1, temos um 
quadro que sintetiza estas modificações 
para Os sistemas operacionais mais usa- 
dos atualmente em micros compatíveis 
com o TRS-80 no Brasil. 

Outra modificação importante é 
quanto à quantidade de memória dis- 
ponível. Como foi dito, o editor, tra- 
balhando com 48 Kb, armazena 31 pá- 
ginas de texto. Para uma memória me- 
nor modifique as seguintes linhas: 
e linha 40 — calcule 14*64*NP+512 — 
onde NP é o número de páginas a ser 
encontrado experimentalmente — e co- 
loque o resultado no lugar do valor 
28288 do comando CLEAR. Por exem- 
plo, para dez páginas, o valor será 14 * 
64 *10+ 512 = 9472. 

e linha 60 — modifique o valor da va- 
riável PG para o novo número de pápi- 
nas. 

Se forem retirados os comentários do 
programa, o editor poderá passar a ar- 
mazenar pelo menos uma página de da- 
dos a mais. Neste caso, a modificação 
dada anteriormente também deve ser 
feita, só que aumentando o número de 
páginas. 

O usuário pode também mudar o ca- 
ráter que serve de cursor para outro 
mais a seu gosto. Para tal, basta modifi- 
car o valor da variável CR na linha 60. 

Na impressão, o usuário poderá colo- 
car, no topo de cada folha, um cabeça- 
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CMD"BREAK,N" 
RETIRAR O COM. 
CMD"BREAK,Y" 





Figura 1 
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lho qualquer. Para isto basta inserir co- 
mandos LPRINT nas linhas 1620 a 
1640. O editor foi preparado para tra- 
balhar com impressoras padrão de 66 
linhas por página. Para modificá-lo para 
impressoras não-padrão, basta alterar 
a linha 1530 para POKE 16425,1: PO- 
KE 16424 nnn: GOSUB 1620, onde nnn 
é o número de linhas por folha mais 1 
na impressora. 

Uma observação importante é quanto 
ao número de espaços em branco en- 
tre aspas da linha 100. Em todas as 
strings há dois espaços. Se isto não for 
rigorosamente respeitado, ocorrerão 
consequências completamente imprevi- 
síveis. Um último detalhe é que o editor 
é deficiente em se tratando de edição 
de programas, uma vez que trabalha 
com linhas de 64 colunas, enquanto que 
programas BASIC podem alcançar até 
255 colunas. 


lvan Camilo da Cruz domina várias linguagens 
de programação, dentre elas o BASIC, Pascal, 
FORTRAN, ALGOL, COBOL, PL/1 e Assem- 
bler, tendo experiência de programação em 
computadores grandes, minis e micros. Atual- 
mente faz curso de Física na UFRJ e trabalha 
no Instituto de Química da mesma universi- 
dade, onde desenvolve um sistema contábil e 
vários outros programas administrativus. 


INSTITUTO DE TECNOLOGIA ORT 
CENTRO DE INFORMÁTICA 


CURSOS 
LINHA IBM (Apoio Marcodata) 


OS/VS1 — VSE — VM/CMS — VSAM 


CICS — DL/1- COBOL: TÉCNICAS E 
OTIMIZAÇÃO 


MICROINFORMÁTICA 
BASIC — ASSEMBLER — 
LOGO — CP/M — VISICALC 
dBASE Il —- WORDSTAR 


FORMAÇÃO DE PROGRAMADORES 
DURAÇÃO: 9 MESES 


CPD-ORT: IBM 4341 COM TERMINAIS 


LABORATÓRIO DE MICROS 
TREINAMENTO IN HOUSE 


SOLICITE INFORMAÇÕES E 
FOLHETOS EXPLICATIVOS 


RUA DONA MARIANA - 213 - 
TELS.: 226-3192 - 246-9423 





PASCAL 


sjonpidolejo 


EDITOR DE TEXTOS 


Editor de textos 


"MINIZEAS - Versao 1.00 - Escrito por Ivan Camilo 

CLS: PRINT CHR$(23); 8459,"MINI-EDITOR DE TEXTOS"; 

RS530, "Versao - 1.00"; RB9B,“(C) 1983 - por Ivan £ 

amilo” 

“xxx INICIALIZACÕES xx» 

CLEAR 28288 “ESTE VALOR E DADO PELA FORMULA: PGritx* 

64+512, ONDE FG E” O NUMERO DE PAGINAS DE TEXTO 

CMO"CLOCK,N": CMO"BREAK,N": DEFINT A-Z 

CN=0: 1=0: 1C=0: J=O0: K=0: LN=0:º N=0: NL=O: P=0: Pl 
=0: PA=O0: PX=O0: PY=O0: PZ=0: R=0: TM=0: Al=O: PE-Sl: 
LH=FG*14: CR=176: CH=O0: TL=0: NF=O0 

C$=""": AR$=""!: ST$=-STRING$S( 64,0): R$="" 


"eex ROTINAS EM ASSEMBLY PARA INSERIR E RETIRAR LIN 
HAS ux* 

PL$=CHR$CITI! O CACHRSCBSDAM O PACHRSCI De PACHRSCO 
37 )+CHR$( 184 J+CHR$C 201): PESTCHASCLTIO MACHRECIS) 
Ao MA CHR$CI DA MACHRSCEET ACHR$CITO JHCHRSCDOL) CL 
ADA STRING CONTEM 2 ESPAÇOS 

DIM TXSCLH-1) “** MATRIZ QUE CONTERA O TEXTO »* 
CLS 

AL=15360: F=FEEKCADO: FOKE ADC 

LN=(AD AND 1023)/64+1: CN=(AD ANO 63)+1 

PRINT RB96, USING “BHIBHUSLNSO="5CN 

CS=INKEY$: IF C$="" THEN 160 

IF C$="[ THEN 500 

IF ASC(C$))31 THEN P=ASC(C$): IC=1: CH=-1: GOTO 510 
IC=0 


"eex VETOR VE DESVIO FARA OS RESPECTIVOS COMANDOS +» 
<x 

OM ASC(C$) GOTO 140, 240, 260, 140, 280, 300, 320, 

330, 340, 350, 140, 370, 380, 400, 420, 440, 140, 1 

40, 140, 140, 140, 140, 460, 470, 480, 140, 140, 14 

O, 140, 140, 490 

“*x* COMANLO E exe 

POKE AD,P: PRINT 2896,"CONFIRME (S/N)? “52 TM-lz K= 

912: GOSUE 2350: IF R$="N”" THEN PRINT 2894,STRINCS 

20,32): GOTO 130 ELSE IF R$4)"S" THEN 240 ELSE CD" 

BREAK ,Y": CLEAR 50: STOP 

“em COMANDO Coxx* 

GUSUE 1280 :CH=-1 :GOTO 510 

“xe* COMANDO E xxx 

POKE AD,P: PRINT 2896,"CONFIRME (S/N)? "jz Til=dz K- 

912: GOSUB 2350: IF R$="N” THEN PRINT R996, STRINGS 

20,32): GOTO 130 ELSE IF R$()"S" THEN 280 ELSE COTO 
40 

“um COMANDO F ums 

GOSUEB 860: COTO 130 

“ex* COMANDO G uu» 

GOSUE 2140: COTO 130 

1C=-1: GOTO 510 “xxx DECREMENTA O CURSOR 

[C=1: GOTO S10 “*x* INCREMENTA O CURSOR 

[C=44: GOTO S10 “xxx LINE FEED 

“n** COMANDO L xx» 

GOSUE 1680 :GOTO 530 

IC=(AD OR &H003F )+1-Al: GOTO 510 “*** RETURN 

“xx COMANDO N xxx 

LN=NPX14+INTC(AD-15360)/64)+1: PRINT R896, "LINHA"; 
LN; PAGINA";NP+i: FOR I=1 TO 500: NEXT I: PRINT & 
896,STRING$( 24,32): GOTO 510 

“ex COMANDO O nxx 

GOSUB 1030: GOTO 130 

“es COMANDO P xxx 

GOSUB 580: GOSUB 780: GOTO 130 

“x** COMANDO U uxx 

GOSUB 1470: GOTO 510 

IC=(AD-1 AND &HFFFB)-AD: GOTO S1O “xxx TABULA PARÁ 
TRAS 

IC=(AD OR &H0007)+1-AD: GOTO 510 “xxx TABULA PARA 
à FRENTE 


POKE AD,P: GOTO 130 “xxx HOME 





500 IC=-64 "xxx SOBE O CURSOR 
510 POKE AD,P: AD=AD+IC “RESTAURA CARACTERE ANTIGO 
Se0 IF AD)14255 THEN AD=AD-896 ELSE IF AD(15360 THEN AD 
=AD+B96 “xxx TESTA SE O CURSOR ESTA” FORA DA TELA 
530 P=PEEKCAD): POKE AO,CR “COLOCA O CURSOR NA NOVA POS 
ICAO 
540 GOTO 140 
550 * 
560 “xnx** ROTINAS DE EXECUCÃO DE COMANDOS uuxax 
STO “xx ATUALIZA PAGINA, NUMERO DA PAGINA E TOTAL DE LI 
NHAS xx 
580 FPOKE AD,P: FRINT 2896,"NUMERO DE PAGINAS? "5: TM=5: 
K=915: GOSUB 2350: IF R$="" THEN Pl=1 ELSE PI=VAL( 
R$) 
590 IF NOT CH THEN 690 "SE NAO HOUVE MODIFICACÃO DA TE 
LA SALTE 
600 “** ATUALIZA À PAGINA x* 
6410 FOR 1=0 TO 13 
620 'x* MODIFICA O ENDERECO INICIAL DO STRING DE ST$ xx 
630 POKE VARPTR(ST$)+2,60+INT( 1/4) “BYTE +SIG. DO ENCE 
RECO DO PRIMEIRO CARACTERE DA LINHA 1 : 
640 POKE VARPTR(ST$)+L,CI ANO 3)x64 “BYTE -SIG. DO ENCE 
RECO DO PRIMEIRO CARACTERE DA LINHA 1 
650 "xx ATRIBUI A LINHA I DA TELA “A TXSCNEXI4+T) *x 
660 TX8(NPX14+] )=5T$ 
470 NEXT I 
680 CH=0 “xx PAGINA ATUALIZADA (SEM MODNIFICACÕOES PENDEN 
TES) 
690 IF TLCCNP+1 )xX14 THEN TL=(NP+1)x14 
700 FOR I=TL TO 1 STEP -1: IF TX$C 1-1 )=STRINC$( 64," ") 
OR Tx$(I-1)="" OR TX$(T-1)=" " THEN ELSE GOTO 720 
T1O NEXT I 
720 TL=1 “xxx TL=ULTIMA LINHA DO TEXTO 
730 NF=NP+PL 
740 IF NP<XO THEN NP=0 ELSE IF NP)PG-1 THEN NP=FG-1 
750 RETURN 
740 * 
TTO “xx DISPLAY PAGINA sx 
780 CLS ” 
790 FOR 1=0 TO 13 
800 IF LENCTXS(NP*14+1))=64 THEN PRINT TX9(NPX14+1); EL 
SE PRINT TX$(NPx14+T) 
B10 IF C$="" THEN C$=INKEY$ 
820 NEXT 1 
830 RETURN 
840 * 
B50 “xxx GRAVA ARQUIVO su» 
860 Sri da F1=0: GOSUB 590: PRINT 2894, "ARQUIVO NE 
8.3 
870 TM=25: K=914: GOSUB 2350 
880 IF R$='"" THEN 970 
890 IF R$C)'"=" THEN AR$=R$ 
P00 ON ERROR GOTO 980 
910 OPEN “O“,1,AR$S “G 
920 FOR 1=0 TO TL-1 *K 
930 PRINT HI,TX$(I) "A 
940 NEXT 1 “y 
950 CLOSE “A 
960 ON ERROR GOTO OQ 
Hb A 2896,STRING$( 63,32): RETURN 
R896,"ERRO CODIGO H"s;ERR:" ts : 
ES(64,32)5 FERRG"NA LINHA" SERL;STRIN 
990 FOR I=1 TO 1000: NEXT I 
1000 RESUME 960 
1010 * 
rs “xx* LE ARQUIVO sax 
O POKE AD,P: PRINT GA96, "ARQUIVO DE 9gs = 
ea E Kegt6: COSUB 2350 , ENTRADA?";: TM=25 
R$="" THEN FRINT B896,ST ss 
1050 IF R$C)%a THEM ARS=RS 1STRING$( 20,32);: GOTO 130 
1060 ON ERROR GOTO 1220 
1070 OPEN "I“,1,ARS$ 
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CLS: NP=0 

1=0 

IF EOF(1) THEN 1150 

LINE INPUT BL, TXSCI) 

IF LENCTX$(1)))64 THEN PRINT “LINHASG1+13" OL TRUNC 
ADA": TXS( I)=LEFTSCTX$(1),64) 

1=1+1 

GOTO 1100 

FOR J=I TO TL 

TXSCJD= "e 

NEXT J 

TL=I 

CLOSE: GOSUE 780 

ON ERROR GOTO O 

RETURN 

PRINT 6896, "LRRO CODIGO HºFERR; "NA LINHA ;ERL;STRIN 
6% 44,32); 

FOR 1=0 TO 1000: NEXT 1 

PRINT R949,STRINGS( 64,32) 

RESUME 1200 


"xe INSERE N CARACTERES, DELETA -N CARACTERES sx 
PA=(AD OR 4H003F ): PRINT G896,"NUMERO DE CARACTERES 
9452 TM=3: K=910: GOSUE 2350: IF R$="" THEN R$="1" 
N=VALCR$): IF NXO THEN N=-N: GOTO 1370 ELSE IF N=0 
THEN 1440 ELSE IF AD+N)PA THEN N=PA-AD+ 

POKE AD,P “+** RESTAURA CARACTERE 

FOR I=FA TO AD+N STLP -1 “MOVE UM BLOCO DE CAKACTER 
9 

POKE I,PEEKCI-N) 
MEXT 1 

FOR I=áD+N-1 TO AD STEP -1 

POKE 1,32 “APAGA N CARACTERES DEPOIS DO CURSOR 
NEXT 1: P=32: COT( 1440 

FOR I=AD+N TO PA “MOVE UM BLOCO DE CARACTERES 
POKE I-N,PEEKCI) “N COLUNAS FARA TRAS 

NEXT 1 

FOR I=FA-N+] TO PA 

FOKE 1,32  AFACA H CARACTERES NO FIM DA LINHA 
NEXT 1 

F-PEER(AD) “SALVA CARACTERE “SUB” O CURSÓR 
FRINT RQ994,STRINGS(30," "Dj: RETURN 


"N COLUNAS PARA A FRENTE 


"0% IMPRIME TEXTO +m% 

POKE AD,P: PRINT 8896, "TABULACAO “A ESQUERDA?" ;: TM 
=3: K=919: COSUB 2350: N=VALCR$): IF N)132 THEN PRI 
NT G919,” —"s: GOTO 1470 

PRINT RB96, "NUMERO DE LINHAS POR FOLHA?!;: Trl=2: K= 
924: GOSUB 2350: NL=VAL(R$): IF N)89 THEN PRINT A92 
4," ": GOTO 1480 

FRINT RB96,"POSICIONE O PAPEL " 

PRINT “DIGITE (ENTER) PARA CONTINUAR" ; 

C$=INKEYS 

IF CSC)CHR$( 13) THEN 1510 

POKE 14425,1: GOSUE 1620 

PRINT R896,STRINGS( 127," ""); 

FOR 1=0 TO TL=1 

IF LENCTX$(1)))2 THEN IF LEFISCTXS(I),3)="///" THEN 
LPRINT CHR$(12);: GOSUB 1620: GOTO 1590 

LPRINT TABCN);TX$CI) 

IF PEEK(16425))NL THEN LPRINT CHR$(12);: GOSUB 1620 


NEXT 1 

RETURN 

“mex CABECALHO xxx 

(en COLOQUE NESTAS TRES LINHAS 
o 

To. O SEU 

* 

ET. CABECALHO 

* 

RETURN 


“xxx INSERE N LINHAS, DELETA -N LINHAS xx* 
POKE AD,P: PRINT 0896,"NUMERO DE LINHAS?";: TM=4: K 
=914: GOSUB 2350: IF R$="" THEN R$="1" 
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1690 
1700 
1710 


1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 


-1910 


1920 
1930 


1940 
1950 
1940 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2040 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 


2130 
2140 
ei7o 
2180 
2190 
2200 
2210 
2220 


2230 


2240 
e250 
2260 
pero 
2280 
2290 
2300 


2310 
1320 
':330 
340 
350 
360 


N=VALÇR$): IF N<1 THEN N=-N: GOTO 1910 


P1=0: GOSUB 590 
NL=(AD-15360 )/64+NPu14: TL=TL+N: IF TL)LH THEN 1890 


IF NL)=TL-N THEN 1880 

POKE VARPTRCPX),PEEKCVARPTRCPLS )+1) 

POKE VARPTRCPX)+1,PEEKCVARPTR(P1$ 42) 

DEF USRO=PX: PZ=VARPTRCPY) 

PY=VARPTRCTXS TL-1))+2 

POKE PX+1,PEEKCPZ) 

POKE PX+2,PEEKCPZ+1) 

PY=VARPTRC TXSCTL-N=1))+0 

POKE PX+4,PEEKCPZ) 

POKE PX+5,PEEKCPZ+1) 

PY=(TL=N=NL )x3 

POKE PX+7,PEEK(PZ) 

POKE PX+B,PEEKCPZ+1 ): PX=USROCO) 

FOR I=NL TO NL+N-1 “APAGA N LINHAS A PARTIR DA 
TXSCI Is"! “LINHA ATUAL 

NEXT 1 

GOTO 780 “MOSTRA A NOVA FAGIHA E RETORNA 
PRINT 2896, "LINHAS EM EXCESSO "s 

FOR 1=1 TO 500: NEXT 1: PRINT GB96,STRINGS( 20,32): 
TL=TL-N: RETURN 

P1=0: GOSUE 590 

NL=(AD-15360 )/64+HPX14 “MOVE N LINHAS PARA TRAS 
IF TL=NL+N THEN 2070 ELSE IF TLCNL+N THEN TL=TLAN: 
GOSUB 1890: GOTO 2110 

POKE VARPTRCPX),PEEK(VARPTR(P2S D+) 

POKE VARPTRCPX 41, PEEKCVARPTR(P2S 42 ) 

DEF USRO=PX: PZ=VARPTRCPY) 

PY=VARPTRC TXSCNL )) 

POKE PX+L,PEEKCPZ) 

POKE PX+2,PEEKCPZ+1) 

PY=VARPTRCTXSCNL+N)) 

POKE PX+4,PEEKCPZ) 

POKE PX+5,PEEKCPZ+L) 

PY=(TL-NL-N)+3 

POKE PX+7,PEEKCPZ) 

POKE PX+B,PEEKCPZ+1) 

PX=USRO(O) 

FOR I=TL-N TO TL-1 “APAGA H LINHAS DO FINAL DO 
TXSCID="" “TEXTO 

NEXT 1 

TL=TL-N 

GOTO 780 “MOSTRA A NOVA PAGINA E RETORNA 


“xmx GRAVA TEXTO COMPACTADO NO ARQUIVO sx* 

POKE AD,P: P1=0: GOSUE 590: PRINT 2896, "ARQUIVO DE 
SAIDA?" ; 

TM=25: K=914: GOSUB 2350 

IF R$="" THEN 2290 

IF R$€)"=" THEN ARS=R$ 

ON ERROR GOTO 2300 

OPEN "O", L,ARS 

FOR 1=0 TO TL-1 

IF LENCTX$(1))=0 THEN J=0: GOTO 2250 

FOR J=LENCTX$(1)) TO 1 STEP -1 * J=ULTIMO CARACT 
ERE 

IF MIDSCTXSCI), 4104)! *“ THEN 2250 “DIF. * “ DA LIN 
HA 

NEXT J 

PRINT HL,LEFTSCTXSC 1,9) 

NEXT 1 

CLOSE 

ON ERROR GOTO O 

PRINT EB96,STRINGS( 64,30 );: RETURN 

PRINT 2896, "ERRO CODIGO H";ERR;"NA LINHA" ;ERL;STRIN 
6$( 64,32); 

FOR I=1 TO 1000: NEXT 1 

RESUME 2280 

“xmx ROTINA DE LEITURA DE TECLADO *** 

R$="": PRINT GK,CHR$(CR);: J=0 

CS=INKEY$: IF C$=""! THEN 2360 
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e EEE 


Jogue fora a caneta e o papel, sente-se em frente ao seu micro da linha Sinclair, cadastre 
suas mensalidades e saiba todo mês a quantas andam suas finanças 








Controle as despesas 
no micro 


uantas vezes você 

já se sentou, pe- 

gou aquele livri- 

nho de anotações, 
bloco, folha, enfim, um pa- 
pel qualquer para ali escre- 
ver suas despesas do mês? 
E, depois disso, ficou horas 
somando para chegar ao to- 
tal dessas despesas (e, diga- 
se de passagem, sempre de- 
sejando que esse total fosse 
pequeno)? Aí você começa 
a separar as que vencem 
dia 5, 10, 15 etc. Depois, 
começa a pensar como será 
o mês que vem, ou daqui a 
seis meses: quantas daquelas 
mensalidades você ainda te- 
rá que pagar? Enfim, esse 
ritual (apesar de doloroso) 
faz -se necessário quando não 
temos um número de despe- 
sas suficientemente pequeno 
para lembrar de cabeça to- 
dos os seus detalhes. 

Pois bem, este programa 
mensal é um exemplo de 
aplicação para esse fim. Ele 
vai cadastrar suas 'nensalida- 
des (valor, vencisento, nú- 
mero de prestações etc.), 
fornecendo um perfeito con- 
trole de suas despesas. Veja- 
mos então como isso funcio- 
na. 
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AUTOMÓVEL 
ALIMENTAÇÃO 


[a 


Prestação X 
2 Prestação Y 
3 Prestação Z 





Figura 2 


Para operar o programa, 
é preciso que se compreenda 
a formação de seus registros. 
São admitidas até SO mensa- 
lidades cadastradas, sendo 
cada uma delas composta 
de: 
e CÓDIGO — número de 1 
a 100. Fica a critério do 
usuário estipular o número 
de cada mensalidade; 
e NOME -— descrição da 
mensalidade, com até 15 dí- 
gitos; 
e VENCIMENTO — nú- 
mero de la 31; 
e VALOR — número de 1 
a 999.999; 
e REPETIÇÕES — número 
de 1 a 98 ou 99. É o núme- 
ro de vezes que a mensalida- 







cóbrco | nome | vero REPET 
] 













20 100000 24 
30 50000 99 


de se repete. Quando este 
número for igual a 99, 
isto significa que a mensa- 
lidade é permanente. 

Observemos o exemplo 
da figura 1. No registro nú- 
mero 1, cadastramos a men- 
salidade referente à compra 
de um automóvel que vence 
no dia 20, no valor de 
Cr$ 100 mil e que será 
paga em 24 vezes. Já no nú- 
mero 2, cadastramos ALI- 
MENTAÇÃO como sendo 
uma mensalidade fixa, devi- 
do ao número de repetições 
ser igual a 99. 

A diferença entre uma e 
outra é que, na rotina de 
BAIXA do programa, po- 
demos baixar a primeira até 
seu número ser igual a O 


(quando será automatica- 
mente excluída do arquivo); 
já a segunda só poderá ser 
excluída do arquivo através 
da rotina de EXCLUSÃO. 
Assim, quando se fizer ne- 
cessário mudar o valor de 
ALIMENTAÇÃO, iremos al- 
terá-la através da rotina de 
ALTERAÇÃO, que permite 
mudar o valor da mensalida- 
de desejada. 


COMO FUNCIONAM 
AS ROTINAS 


e INICIAL — Esta rotina é 
a primeira a ser executada 
pelo programa. Nela devem 
ser informados o dia, mês e 
ano da consulta ou atualiza- 
ção, bem como o rendimen- 
to do mês. 


e MENU -— É a segunda ro- 
tina executada pelo progra- 
ma. Nela é solicitada a fun- 
ção desejada. Para isso, bas- 
ta escolher e pressionar a 
tecla correspondente. 


e FIM — Esta é a última 
que deve ser solicitada pelo 
usuário, pois é ela que gra- 
va em fita os dados gerados. 
Quando uma nova utilização 
do programa for necessária, 
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deve-se então ler a última 
gravação efetuada. 


e INICIALIZAÇÃO — Esta 
rotina é usada apenas uma 
vez no início da utilização 
do programa. É ela que di- 
mensiona as variáveis para 
acúmulo dos dados. ATEN- 
ÇÃO: use esta rotina somen- 
te uma vez; após isso, in- 
clua seus dados e grave em 
fita. Ao ler novamente não é 
necessário executá-la mais, 
pois se o fizer, as variáveis 
serão todas zeradas. Se dese- 
jar, como medida de segu- 
rança, após utilizá-la elimi- 
ne as linhas 101 a 107 do 
programa, pois as variáveis 
já estarão dimensionadas em 
memória. Ainda sobre as va- 
riáveis, deve-se lembrar que 
um comando RUN para exe- 
cução do programa também 
causaria uma perda de infor- 
mações. Por isso, quando for 
executá-lo, ao invés deste 
comando, utilize GOTO1. 

e INCLUSÃO -— Permite 
incluir a mensalidade. 


e ALTERAÇÃO -— Esta 
rotina permite alterar o va- 
lor da mensalidade. Sua uti- 


lização é de grande valia 
nos casos das mensalidades 
permanentes. 


e EXCLUSÃO -— Permite a 
exclusão da mensalidade. 


e BAIXA — Esta rotina de- 
ve ser utilizada sempre que 
algum pagamento for efetua- 
do, informando-se o núme- 
ro de mensalidades pagas. 


e LISTAGEM GERAL -—- 
Permite visualizar todas as 
mensalidades cadastradas, 
com seu respectivo total. 


e LISTAGEM POR PERÍO- 
DO — Nesta rotina serão so- 
licitados os dias inicial e fi- 
nal do período. Ela listará 
todas as mensalidades que 
vencem naquele período. 
Por exemplo: início = 15 e 
fim = 25 proporcionará a 
listagem das mensalidades 
que vençam do dia 15 ao 
25 naquele mês. 


e ANÁLISE PERCEN- 
TUAL — Esta rotina nos 
fornece, a partir do código 
da mensalidade, sua descri- 
ção, vencimento, valor e 
percentual que aquela men- 


salidade representa sobre 


nossa renda no mês. 


e PROJEÇÃO — Esta roti- 
na nos fornece uma posição 
antecipada de nossas mensa- 
lidades n meses à frente. De- 
vem-se informar os dias ini- 
cial e final do período em 
que se deseja a projeção, 
bem como o número de me- 
ses da projeção. Vejamos 
como isso ocorre. 


Suponhamos que seja dia 
15.09.83 e desejamos saber 
quais mensalidades teremos 
que pagar de 10 a 20.03.84. 
Informemos, então: dia 
inicial = 10; dia final = 20; 
nO de meses = 6. Observe 
que o programa, para efetuar 
esta rotina, se baseia em 
que todas as mensalidades 
estejam em dia. Outra consi- 
deração importante é que 
várias mensalidades, com o 
mesmo número de repeti- 
ções, podem estar em situa- 
ções diferentes. 


Vamos agora observar a 
figura 2. No caso da mensa- 
lidade 1, ela não aparecerá 
na projeção, pois o progra- 
ma supõe que em 18.09.83 


haverá mais um pagamento, 
isto por ser o dia de seu 


“vencimento maior do que o 


dia da consulta (15.09.83). 
A mensalidade 2 apareceria 
na projeção, pois supõe-se 
que ela já foi paga e seu 
vencimento se enquadra no 
período solicitado. A men- 
salidade 3 já não apareceria, 
por ser seu vencimento no 
dia 5, não atendendo, assim, 
ao período solicitado (de 
10 a 20). 


ALGUMAS DICAS 


Nas rotinas de INCLU- 
SÃO, ALTERAÇÃO, EX- 
CLUSAO, BAIXA e ANA- 
LISE PERCENTUAL se, 
ao invés de digitarmos o 
código, digitarmos O, o 
programa voltará a apre- 
sentar o MENU. 


Quase todos os campos 
digitados sofrem uma crí- 
tica para validação, porém 
nem todos têm uma mensa- 
gem de erro correspondente, 
ficando o computador à es- 
pera da redigitação da infor- 
mação, caso exista erro. Pa- 
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CONTROLE AS DESPESAS NO MICRO 
















Confirmação 





Fim de Período 


Número de meses 


Figura 3 





Projeção 


ra evitar isso, observe a fi- 
gura 3, que contém as exi- 
gências de cada campo que 
não possui mensagem de 


É importante você saber 


REM PROGRAMA MENSAL 

REM JOSE RAFAEL SOMMERFELD 

REM CAIXA POSTAL 1709 
CEP 24120 NITEROI 


1600 
IF FL=1 THEN GOTO 1 
CLS 
FAST 
FOR X=0 TO 63 
PLOT X,0 
PLOT X,43 
NEXT X 
PRINT AT 1,4;"CONTROLE DE M 
ENSALIDADES" 
17 PRINT AT 5,8;“0 - FIM" 
PRINT TAB 8;"1 - INICIALIZA 


PRINT TAB 8;"2 - INCLUSAO" 
PRINT TAB 8;"3 - ALTERACAO" 
PRINT TAB 8;"4 - EXCLUSAO" 
PRINT TAB 8;"5 - BAIXA" 
PRINT TAB 8;"6 - LISTAGEM G 


24 PRINT TAB 8;"7 
/PERIODO" 

25 PRINT TAB 8;"8 - ANALISE PE 
RCENTUAL " 

26 PRINT TAB 8;"9 - PROJECAO" 

27 PRINT AT 18,4; "TECLE A FUNC 
AO DESEJADA 


LISTAGEM P 


29 SLOW 

30 LET F$=INKEY$ 

31 IF F$<"0" OR F$>"9" THEN GO 
TO 30 

32 LET F=VvAL F$ 

34 IF F=0 THEN GOTO 50 
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ROTINA(S) 


baixa 


| Código Inclusão, 
Alteração, 
Exclusao, 
e Análise Perc. 


Valor Inclusão 
:| Novo Valor Alteração 
|| repetições 
Inclusão, 
Alteração, 


Exclusao, baixa 
e Projeção 


Início de Período Listagem P/ Periodo 
Projeção 


List. P/Período 


que quando o CÓDIGO for 
uma inclusão e houver uma | te. 
mensagem do tipo CÓDIGO 
INVALIDO, isso representa 
erro. que aquele código já existe 
no arquivo. Nas demais roti- 


nor que 10 







de mensalidades 














Controle Mensal 


35 GOTO F*100 

50 CLS 

53 PRINT AT 3,10;"F I Mº 

56 PRINT AT 5,5;"PREPARE O GRA 
VADOR" 

59 PAUSE 120 

62 PRINT AT 7,1;"SE ESTIVER PR 
ONTO TECLE ""p""m 

65 IF INKEY$<>"P" THEN GOTO 65 

BO SAVE "MENSAL" 

85 CLS 

90 GoTo 1 

100 CLS 

101 PRINT AT 11,4; "INICIALIZAND 
O VARIAVEIS" 

102 DIM C(50) 

103 DIM D$(50,15) 

104 DIM V(50) 

105 DIM A(50) 

106 DIM R(50) 

107 PAUSE 120 

108 GoTo 10 

200 CLS 

203 PRINT AT 1,10; "INCLUSAO" 

206 GOSUB 1000 

207 IF FL=1 THEN GOTO 10 

209 PRINT AT 7,5;"NOME .... + * 

212 INPUT N$ . 

215 IF LEN N$<=15 THEN GOTO 230 

218 PRINT AT 21,0;"NOME MUITO G 
RANDE ... ABREVIE" 

221 PAUSE 120 

222 PRINT AT 


224 GOTO 212 
230 PRINT AT 7,17;N$ 
233 PRINT AT 9,5; "VENCIMENTO: " 


236 INPUT VE 


[us [mica 


Ti E 


maior que O e menor que 13 
menor que 100 


igual ou maior que 0 e me 


menor que o limite máximo 


maior que 0 e menor que 32 


maior que O e menor que 
1.000.000 


maior que O e menor que 100| - 


igual a S ouN ' 


maior que O e menor que 31 Rg 
maior que O e menor que 31 | 


maior que O e menor que 100 


nas representa que não exis- 


Para aqueles que prefe- 
rem subdividir suas mensali- 
dades em detalhes, aumen- 
tando assim em demasia seu 





número para controle, aí vai 
uma dica para aumentar a 
capacidade de mensalidades 
cadastradas. Basta alterar as 
linhas 102, 103, 104, 105, 
106, 612, 730, 815, 956 e 
1030, colocando, onde esti- 
ver escrito 50, o número- 
limite desejado, ohedecendo 
ao máximo de 200. Se vo- 
cê não tiver necessidade de 
utilizar mais que 50, então 
não faça esse tipo de altera- 
ção, pois ela ocupará mais 
memória, aumentando seu 
tempo perdido em consul- 
tas, gravações e leituras. 
Finalmente, é bom você 
saber também que este pro- 


grama opera em slow. 








José Rafael Sommerfeld trabalha 
há três anos com programação 
de microcomputadores, utilizan- 
do as linguagens Assembler, BA- 
SiC, COBOL e LTD. Atualmen- 
te trabalha no IBAM — Instituto 
Brasileiro de Administração Mu- 
nicipal e é sócio da SOFT RE- 
SEARCH Informática, em Nite- 
rói-RJ. 





IF VE<=0 OR VE>31 THEN GOTO 


PRINT VE 
PRINT AT 11,5; "VALOR ... 


INPUT VA 

IF VA>999999 OR VA<=0 THEN 
248 

PRINT VA 

PRINT AT 13,5; "REPETICOES: 


INPUT RE 
IF RE<=0 OR RE>99 THEN GOTO 


PRINT RE 
GOSUB 1100 
IF C$="S" THEN GOTO 280 
Goro 200 
LET C(CD)=1 
LET D$ (CD) =N$ 
286 LET V(CD)=VE 
289 LET A(CD)=VA 
292 LET R(CD)=RE 
295 PRINT AT 21,0;"OK ... INCLU 
IDO" 
298 PAUSE 120 
299 GoTO 200 
300 CLS . 
303 PRINT AT 1,10;"ALTERACAO" 
306 GOSUB 1000 
307 IF FL=1 THEN GOTO 10 
309 PRINT AT 7,5;"NOME .... 
;: D$ (CD) 
312 PRINT AT 9,5;"VALOR ... 
;A(CD) 
0315 PRINT AT 11,5;"NOVO VALOR: 
318 INPUT VA 
321 IF VA<=0 OR VA>999999 THEN 
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GOTO 318 

324 PRINT VA 

327 GOSUB 1100 

330 IF C$="S" THEN GOTO 336 

333 GoTO 300 

336 LET A(CD)=VA 

339 PRINT AT 21,0;"0K ... ALTER 
ADO" 

342 PAUSE 120 

345 GOTO 300 

400 CLS 

403 PRINT AT 1,10;"EXCLUSAO" 
406 GOSUB 1000 

407 IF FL=1 THEN GOTO 10 

409 PRINT AT 7,5;"NOME .... 2" 
; D$ (CD) 

412 GOSUB 1100 

415 IF C$="S" THEN GOTO 421 

418 GOTO 400 

421 GOSUB 1200 

424 PRINT AT 21,0;"OK ... EXCLU 
IDO" 

427 PAUSE 120 

430 GOTO 400 

500 CLS 

503 PRINT AT 1,10;"BAIXA" 

506 GOSUB 1000 

507 IF FL=1 THEN GOTO 10 

509 PRINT AT 7,5;"NOME .... 2: " 
; D$ (CD) 

512 IF R(CD)<>99 THEN GOTO 524 
515 PRINT AT 21,0; "MENSALIDADE 
PERMANENTE " 

518 PAUSE 120 

521 GoTO 500 

524 PRINT AT 9,5;"NUMERO .. : " 
527 INPUT N 

530 IF N<=R(CD) THEN GOTO 542 
533 PRINT AT 21,0; "NUMERO > QUE 
NUMERO CADASTRADO" 

536 PAUSE 120 

539 GOTO 500 

542 PRINT N 

545 GOSUB 1100 

548 IF C$="S" THEN GOTO 554 

551 coro 500 

554 LET R(CD)=R(CD)-N 

557 IF R(CD)>0 THEN GOTO 580 
560 GOSUB 1200 

563 PRINT AT 21,0;"MENSALIDADE 
FOI EXCLUIDA" 

Goto 583 
PRINT AT 21,0;"OK ... BAIXA 


PAUSE 120 

Goto 500 

GOSUB 690 

GOSUB 1300 

LET TV=0 

LET L=0 

FOR I=1 TO 50 

IF C(I)=0 THEN GOTO 618 
GOSUB 1400 

NEXT I 

GOTO 1500 

CLS 

PRINT TAB 9;"LISTAGEM GERAL 


PRINT 

RETURN 

LET TV=0 

LET L=0 

GOSUB 790 

PRINT "INICIO : "; 

INPUT IP 

IF IP<=0 OR IP>31 THEN GOTO 


PRINT IP 

PRINT AT 1,24;"FIM : ".; 
INPUT FP 

IF FP<=0 OR FP>31 THEN GOTO 


PRINT FP 
GOSUB 1300 
- FOR I=1 TO 50 
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733 IF C(1I)=0 OR V(I)<IP OR V(I 
)J>FP THEN GOTO 739 

736 GOSUB 1400 

739 NEXT 1 

742 GOTO 1500 

790 CLS 

791 PRINT TAB 7;"LISTAGEM P/PER 
IODO" 

792 IF TV=0 THEN RETURN 

793 PRINT "INICIO : ";IP;TAB 24 
"FIM : “;FP 

794 RETURN 

800 CLS 

803 PRINT AT 1,7; "ANALISE PERCE 
NTUAL" 

806 PRINT AT 5,1;"INFORME O COD 
IGO DA MENSALIDADE" 

809 INPUT CD 

812 IF CD<=0 THEN GOTO 10 

815 IF CD>50 THEN GOTO 809 

818 IF C(CD)=0 THEN GOTO 809 
821 PRINT AT 8,4;"DESCRICAO : 

; D$ (CD) 

824 PRINT AT 10,4;"VENCIMENTO: 
"sVÍ(CD) 

827 PRINT AT 12,4;"VALOR : 
";A(CD) 

830 PRINT AT 15,1;"PERCENTUAL S 
/RENDA = "; (A(CD) *100) /RD; "(3/5 
833 PRINT AT 20,0;"TECLE ""0O"" 
P/OUTRA OU" 

836 PRINT TAB 6;"""F"" P/FINALI 
ZAR" 

839 LET C$=INKEY$ 

842 IF C$="0" THEN GOTO 800 

845 IF C$="F" THEN GOTO 10 

848 coro 839 

900 CLS 

901 LET D=ID 

902 LET M=IM 

903 LET AN=IA 

904 PRINT AT 1,6;"PROJECAO DE D 
ESPESAS" 

905 PRINT AT 4,12;"INFORME :" 
906 PRINT AT 6,3;"DIA INICIAL D 
O PERIODO : "; 

908 INPUT IP 

910 IF IP<=0 OR IP>31 THEN GOTO 

908 

912 PRINT IP 

914 PRINT AT 8,3;"DIA FINAL DO 
PERIODO . : "; 

916 INPUT FP 

918 IF FP<=0 OR FP>31 THEN GOTO 
916 

920 PRINT FP 

922 PRINT AT 10,3;"NUMERO DE ME 
SES counso 4 *9 

924 INPUT N 

926 IF N>99 OR N<=0 THEN GOTO 9 
24 

928 PRINT N 

930 GOSUB 1100 

932 IF C$="N" THEN GOTO 900 

934 LET M=M+N 

936 IF M<13 THEN GOTO 948 

938 FOR X=1 TO 8 

940 LET M=M-12 

942 LET AN=AN+1 

944 IF M<=12 THEN LET X=8 
* 946 NEXT X 

948 GOSUB 990 

950 GOSUB 1300 

952 LET TV=0 

954 LET L=0 

956 FOR I=1 TO 50 

958 IF C(I)=0 OR V(I)<IP OR V(I 
)J>FP OR R(I)<N OR V(I)>ID AND R( 
I)=N THEN GOTO 962 

960 GOSUB 1400 

962 NEXT I 

964 GOTO 1500 

990 CLS 

992 PRINT TAB 6;"PROJECAO DE DE 


P;º" A ";FP;"/";M;"/";AN 


996 
1000 
1010 
1015 
1020 
1025 
1030 
1040 


RETURN 

PRINT AT 5,5;"CODIGO .. 
INPUT CD 

LET FL=0 

IF CD=0 THEN LET FL=1 

IF CD=0 THEN RETURN 

IF CD>50 THEN GOTO 1010 

IF C(CD)=0 AND F=2 OR C(CD) 


=1 AND F>2 THEN GOTO 1070 


1050 
IDO" 
1060 
1063 


1065 
1070 
1080 
1100 


PRINT AT 21,0;“CODIGO INVAL 


PAUSE 120 
PRINT AT 21,0;" 


GOTO 1010 

PRINT AT 5,17;CD 

RETURN 

PRINT AT 17,7;"CONFIRMA ? ( 


S/N)" 


1105 
1110 
TURN 
1115 
1200 
1210 
1220 
1230 
1240 
1250 
1300 


LEY C$=INKEY$ 
IF C$="N" OR C$="S" THEN RE 


GorQ 1105 

LET C(CD)=0 

LET D$(CD)=" " 

LET V(CD)=0 

LET A(CD)=0 

LET R(CD) =0 

RETURN 

PRINT "COD NOME";TAB 20;"VC 


VALOR RP" 


1310 
1320 
1400 
1405 
1406 
1407 
1410 


PRINT 

RETURN 

LET TV=TV+A(I) 

LET L=L+1 

LET Z$=STR$ A(I) 

LET Z=LEN Z$ 

PRINT " ";I;TAB 4;D$(I);TAB 


20;V(I);TAB 29-Z;A(I); TAB 30; R( 


I) 
1415 
1420 


IF L<15 THEN RETURN 
PRINT AT 19,10;"SUB-TOTAL = 


> "sTV 


1425 
PARA 
1430 
30 

1435 
1440 
1445 
1450 
1500 
TV 


1510 
PARA 
1520 
20 

1530 
1600 
1605 
1610 
1615 
1620 


PRINT AT 21,0;"TECLE ""Pº" 
PROSSEGUIR" 
IF INKEY$<>"P" THEN GOTO 14 


LET L=0 

GOSUB F*100+90 

GOSUB 1300 

RETURN 

PRINT AT 19,14;"TOTAL => "; 


PRINT AT 21,0;"TECLE ""P"" 
FINALIZAR" 
IF INKEY$<>"F" THEN GOTO 15 


GoTO 10 

CLS 

PRINT AT 2,11;" INFORME 
PRINT AT 5,10;"DIA.. : 
INPUT ID 

IF ID<=0 OR ID>31 THEN 


1615 


1623 
1625 
1630 
1635 
1630 
1638 
1640 
1645 
1650 
1645 
1653 
1655 


1660 
1665 
1670 
1672 
1675 
1680 


PRINT ID 
PRINT AT 7,10;"MES.. : 
INPUT IM 
IF IM<=0 OR IM>12 THEN 


PRINT IM 
PRINT AT 9,10;"ANO.. : 
INPUT IA 
IF IA>99 OR IA<=0 THEN 


PRINT IA 
PRINT AT 12,5;"RENDA MENSAL 


INPUT RD 

PRINT RD 

GOSUB 1100 

LET FL=0 

IF C$="N" THEN LET FL=1 
RETURN 


em 
[em 
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Se para resolver uma equação você precisar empregar métodos iterativos, apele 
para o micro: a resposta virá bem mais rápida e com muito maior precisão 






Resolução 
Iiteratíva de 






funções 





este artigo veremos como apli- 

car processos iterativos para 

resolução de equações com o 

uso de microcomputadores da 
linha Apple. 

Em certos problemas ligados às ciên- 
cias exatas, é comum defrontarmos 
com a necessidade de solucionar uma 
equação matemática. Muitas vezes, a so- 
lução destas equações pode ser alcança- 
da com a utilização de regras algébricas, 
permitindo obter, com relativa facilida- 
de, os valores que satisfazem a equação 
que pretendemos resolver. 

Em outros casos, entretanto, pode- 
mos nos confrontar com certos proble- 
mas cuja solução analítica seja absolu- 
tamente impossível, e a única forma de 
chegarmos a um resultado é utilizando 
processos iterativos de aproximações 
sucessivas. Em trabalhos como este, é 
indispensável o emprego de um compu- 
tador, tanto pela sua velocidade quanto 
pela sua precisão na solução de proble- 
mas. 


OS MÉTODOS 


Existem diversos processos de cálculo 
numérico auxiliares. Dois deles são 
bastante comuris: 

a) Método da bipartição 

Por este processo são encontrados 
dois pontos de tal forma que se tenha 
certeza da existência de uma raiz entre 
eles. O intervalo vai sendo bipartido, is- 
to é, toma-se o ponto médio do inter- 
valo entre os dois pontos e verifica-se 
se a raiz ficou à direita ou à esquerda do 
ponto médio. Em função disto, um dos 
novos extremos passa a ser o ponto mé- 
dio. 
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O processo vai sendo iterativamente 
repetido até o momento em que a raiz é 
esmagada pelos dois pontos extremos. 
Durante o transcorrer do processo, 
e dependendo da precisão desejada, 
podem-se interromper as iterações um 
pouco antes ou um pouco depois. 

Veja um esboço gráfico do funciona- 
mento do método da bipartição na figu- 
ra 1. Os pontos (d) e (e) vão se aproxi- 
mando cada vez mais da raiz (g), até o 
ponto em que a diferença torna-se tão 
pequena que pode ser desconsiderada. 
b) Método de Newton 

Pelo método de Newton, deve-se to- 
mar uma aproximação inicial da raiz. 
Calcula-se o valor da função naquele 
ponto e sua derivada neste ponto. De 
posse destas informações, calcula-se o 
ponto de interseção do eixo das abcissas 
com a reta tangente à função no ponto 
definido pela primeira aproximação. O 
processo pode convergir para a raiz e, 
neste caso, esta interseção representaria 
a segunda aproximação. Repetindo-se o 
processo por algumas vezes, poderá 
chegar-se a uma distância da raiz tão 
pequena quanto se queira. 


Veja o esboço da figura 2 sobre o mé- 
todo de Newton de busca de raízes. 
Tendo-se um ponto (d), podendo calcu- 
lar a equação da reta tangente à função 
neste ponto e sua interseção com o eixo 
das abcissas, podemos encontrar uma 
segunda aproximação. 

Dada uma iteração, a iteração 
seguinte será obtida por esta primeira 
iteração subtraída do quociente entre 
o valor da função no ponto e da deriva- 
da da função no ponto. Para comprovar, 
tomemos a seguinte notação: 


Rudolf Horner Junior 


e f(xn) — valor da função no ponto 
da iteração n 

e f(xn) — valor da derivada da fun- 
ção no ponto da iteração n 

Temos, portanto, da equação de uma 
reta com coeficiente angular m e que 
passa pelo ponto (x,y (9): 


0 


que, substituindo para nossa notação, 
ficará: 
y: = Et) é E) EE si 
Como queremos o ponto onde a reta 
tangente intercepta o eixo das abcissas 


(y = 0), teremos: 


0 - f(x) = €"(x,) é (x - x) 
x - x. = - f(x) PÁ f(x) 
o ca Bo, f(x) /£' (xp) 


E aí está. A correção a ser aplicada a 
cada iteração é o quociente entre a 
função no ponto da iteração pela sua 
derivada neste mesmo ponto. Se a fun- 
ção cqnvergir, teremos que, a cada ite- 
ração, o valor da interseção da reta tan- 
gente com o eixo das abcissas estará 
mais próximo do valor real da raiz da 
função. 


O MÉTODO DE NEWTON EM BASIC 


O programa que aqui trazemos mos- 
tra uma aplicação do processo de New- 
ton para o cálculo numérico de raízes. 
A função a ser resolvida deve ser progra- 
mada a partir da linha número 5000, de 
forma que, ao retornar ao programa prin- 
cipal, seja colocado, na variável FX, o 
valor da função para o ponto especifica- 
do pela variável X. 
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Figura 1- (a) eixo das abcissas; (b) eixo das ordenadas; (c) gráfico da 
função; (d) limite extremo esquerdo da iteração; (e) limite extremo di- 
reito da iteração; (f) ponto médio entre extremos; (g) raiz da função 


O cálculo da derivada é feito numeri- 
camente. Calcula-se o valor da função 
no ponto, dá-se um pequeno incremen- 
to no valor da abcissa e, novamente, 
calcula-se o valor da função. A derivada 
é calculada a partir da diferença entre os 
dois resultados. 

O programa pede ao usuário que defi- 
na uma aproximação preliminar para o 
início do processo (a precisão desejada 
também poderá ser definida). O número 
a ser introduzido terá por função es- 
tabelecer até que casa decimal o resulta- 
do estará absolutamente correto. O pro- 
cesso poderá ser acompanhado ou não 
(existe a opção de ver as iterações pe- 
las quais transcorre o processo). 

A função empregada na demonstra- 
ção é a função polinominal de quinto 
grau em x: 


5 4 


x” - 3x +22 -32 -x > 564 










la REM 
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Uma de suas raízes é — 3. Experimen- 
te usar o processo com a primeira ite- 
ração igual a — 50 e o erro na sétima ca- 
sa. Ele acabará convergindo para o valor 
— 3. Experimente partir de 1000 como 
primeira iteração com erro na quinta 
casa — o processo converge para a raiz. 
É importante notar que, quando a fun- 
ção tem muitas raízes, a convergência 
para cada uma delas dependerá apenas 
da aproximação inicial utilizada. 

O tempo gasto para encontrar a raiz 
dependerá da complexidade da função 
definida a partir da linha 5000. O mé- 
todo de Newton é muito mais rápido 
do que o processo da bipartição, mas 
tem o inconveniente de, muitas vezes, 
não convergir para a raiz da equação. 

Para programar as funções que você 
quiser resolver, lembre-se sempre de 
Jjuas coisas: caso as funções utilizadas 
ão estejam implementadas na lingua- 


gi: Resolução iterativa de funções 


RESOLUCÃO INTERATIVA DE 


FUNCOES sa PRINT PRINT: PRINT "RAIZ D 
zm TEXT: HOME & NORMAL : SPEEDS à FUNCAD: " 
ZEs 5a GOSUR Sama:Fi = Prixi = MIM = 
30 PRINT “"FUNCADE CS PRINT OE LIST = + Dis GOSUE SGRESDE = «FM - 
Sea Fi> o Mil = a IFDE< Aa 
sa PRINT O: PRINT: PRINT "MOSTRA THEN 1 = Fx DE 
E. INTERÓCOES CSeMoT ts GET [iBa MK = MI — 7 IFR THEN UTOEZ 
R$: PRINT R$ = GQ IF R$ = G: PRINT xs SPCO 827 PRINT 
"e" THEN E = 1 11 IF ES 15 > bx THENGSa 
zo TAB 12: INPUT “CHUTE INICIAL | 128 TAB ZE: PRINT “KM = "sm: END 
E CERSIM = VAL €K$D! UTAR À 
= PRINT "FRIMEIRA GPROSINAC | 138 END 
pts Em seca FEM FUNCAO — ENTRA Cu” SAI 
Sã MTEOE ld: INPUT “FRECISAO EM? EM Ds PS 
PovsmpsT = ML CX IFI<|SalaFENH=N0E-3ZaEO ds + 
1 OE 1 > 3 THENEA meg 7ANO ZON + ES 
ra DM = 4a — [= UTOE ld: PRINT | SG28 RETURN 


“"DIMENSÕO DO ERRO q 





Figura 2- (a) eixo das abcissas; (b) eixo das ordenadas; (c) gráfico da 
função; (d) primeira aproximação; (e) reta tangente à função para o 
ponto (d); (f) segunda aproximação; (g) raiz da função é 


gem BASIC, você precisará defini-las 
antes de usar o programa; e, se sua fun- 
ção estiver dividida no primeiro e se- 
gundo membros, passe tudo para um 
membro só, deixando zero no outro 
membro. 

Veja, por exemplo, o polinômio de 
quinto grau que está na listagem. O 
termo — 564 foi transferido com o sinal 
trocado para o primeiro membro, para 
depois dar-se início ao processo. O pro- 
grama busca os valores que façam o 
valor da variável FX (valor da função 
no ponto) estar cada vez mais próximo 
de zero. 





Rudolf Horner Junior cursa Ciência da Com- 
putação na Unicamp e é sócio da Potencial 
Software, empresa que desenvolve programas 
especiais para microcomputadores em Campi- 
nas, SP. 
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Se você tem um CP 500 ou um DGT, então não deixe de ler esse 
artigo e aprenda como quebrar a proteção e recuperar programas em disquete 








“O NEWDOS que não 


está nos manuais 





Renato Degiovani 





grande maioria dos usuários de sistemas com disco 
não faz uma idéia exata de todas as possibilidades de 
seu equipamento. Esse fato deve ser creditado aos 
péssimos manuais que acompanham os micros. 

Existe hoje, por parte da comunidade de usuários, algumas 
teorias que tentam explicar o fato de o fabricante omitir infor- 
mações que, em países mais adiantados, costumam acompa- 
nhar cada equipamento comprado. Não vamos tratar delas 
aqui, porém vamos introduzir um assunto de extrema impor- 
tância para os usuários de sistemas com disco: a estrutura do 
diretório do NEWDOS/80, versão 2.0, e como manipular seus 
registros. 

O NEWDOS, para os que não o conhecem, é atualmente um 
dos sistemas mais procurados para o CP S00 devido principal- 
mente à grande quantidade de software desenvolvido para ele, 
além de ser o sistema base dos DGT (o conhecido DIGDOS 
nada mais é do que a versão do NEWDOS/80 para o TRS mo- 
delo 1) densidade dupla, Mas isso não é tudo: ele é também 
um sistema extremamente poderoso na execução dos coman- 
dos e bastante simples de ser compreendido. 

Portanto, se você é proprietário de um CP 500 ou um DGT, 
nas versões disco, procure uma cadeira confortável e ligue o 
seu micro porque vamos ter uma conversa bastante interes- 
sante. 





TRILHAS, GRÂNULOS, SETORES E OUTROS BICHOS 





Como já sabemos, o disco é dividido em trilhas, grânulos e 
setores. O padrão mais comum de divisão adotado pelo TRS- 
DOS (e por extensão pelo DOS-500) é o seguinte: 

TRS modelo I — cada trilha possui 2 grânulos e cada grânulo 
possui 5 setores. 
TRS modelo III — cada trilha possui 6 grânulos e cada grânulo 
possui 3 setores. 
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O conceito grânulo, no entanto, merece uma atenção toda 
especial, pois pode causar uma série de equívocos aos usuários. 
O manual do DOS-500 não usa a palavra GRÂNULO e sim 
BLOCO para expressar a mesma coisa, ou seja: o grânulo é a 
menor porção alocável do disco. Devemos também ter em - 
mente que um setor possui sempre 256 bytes, não importando 
o sistema que estivermos utilizando. 

No NEWDOS a divisão tanto para o modelo I quanto para o 
modelo III é semelhante, ou seja, cada grânulo possui 5 seto- 
res. Nesse caso, porém, não é utilizado o conceito de trilha e 
sim LUMP, sendo que cada LUMP pode possuir de 2 a 8 grá- 
nulos. Essa aparente confusão é, na realidade, uma forma po- 
derosa de manipular a organização do espaço do disco, uma 
vez que permite ao sistema uma configuração bastante flexível. 
Pode-se mesmo reconfigurar o sistema NEWDOS à “imagem e 
semelhança” de outro sistema qualquer, permitindo dessa for- 
ma a leitura do sistema pelo próprio NEWDOS. 

Para os que já conhecem o sistema NEWDOS, é interessan- 
te dar uma olhada no parâmetro GPL do PDRIVE. 





OS ARQUIVOS DO SISTEMA 





Todo disco de sistema possui uma série de arquivos que são 
as rotinas funcionais responsáveis pela execução dos progra- 
mas ou comandos. Esses arquivos são reconhecidos pela ex- 
tensão /SY'S. 

A figura 1 apresenta todos os arquivos que devem constar 
do disco e a sua função. Se o usuário necessitar de mais espaço 
em um determinado disco, essa tabela o ajudará a estabelecer 
quais os arquivos fundamentais que devem ser mantidos no 
disco e quais podem ser eliminados, a fim de se obter mais 
espaço. 

Apenas como regra geral, o disco deve conter no mínimo os 
seguintes arquivos: BOOT, DIR, SYSO, SYS1, SYS2, SYS3 e 
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ARQUIVO GRÂNULOS FUNÇÃO 


DIR/SYS 2açb6 


gravados. 
BOOT/SYS 


Esse é o diretório do disco, responsável por todas as informações dos arquivos 


É o arquivo de inicialização do sistema, responsável por carregar o DOS no micro 


e executar os resets. Deve ocupar sempre o 1º granulo do disco. 


SYS0/SYs 


Parte do DOS residente que ocupa a memória do micro. É responsável também pelas 


inicializações do relógio, das portas I/O e por carregar os outros arquivos do 


sistema. 
SyY51/sYs 
SYS2/sY5 


Checa a validade dos comandos do DOS. 


Executa os comandos RENAME e LOAD. 


SYS3/sYs 


Cria e organiza os arquivos, os códigos e as senhas dos programas do usuário. 


Elimina os arquivos (KILL) e executa os comandos JKL, BLINK, BREAK, CLOCK, LC, 


DEBUG, LCDVR, VERIFY e a maior parte do comando PURGE. 


SYS4/SYS 
SYS5/SYs 
SYS6/SYS 
SYS7/SYS 


Comando DEBUG. 


PURGE, SYSTEM e PDRIVE. 
Comandos DIR e FREE. 


SYs8/SYs 


SYS9/5YS 

SYS14/SYs 
SYS15/SYS 
SYS16/SYS 
SYS17/SYs 


Comandos FORMS e SETCOM. 


BASIC/CMD 
SYS10/SYS 
SyYS11/SYSs 
SyS12/sYSs 
SYS13/SYS 
SyS18/sYs 
SYS19/sYs 
SYS20/SYs 
SYS21/SYs 


Comandos GEP e PUT. 
Comando RENUM. 
Comando REF. 


Executa CMD"O". 


Obs: o disco ainda deve conter os seguintes arquivos 


Comandos FORMAT, COPY e APPEND. 
Comandos TIME, DATE, AUTO, ATTRIB, PROT, DUMP, HIMEM e a 12 parte dos comandos 


Imprime as mensagens de erro do DOS. 


Comandos BASIC2, BOOT, CHAIN, CHNON, MDCOPY, PAUSE e STMT. 
Comandos CLEAR, CREATE, ERROR, LIST, PRINT e ROUTE. 


Executa a maior parte do comando PDRIVE. 
Comandos WRDIRP e parte do comando SYSTEM. 


Esse é o principal módulo residente quando o Basic disco está sendo operado. 


Imprime as mensagens de erro do Basic e 1º parte do comando RENUM. 

Executa as instruções Basic como comandos diretos. 

Comandos LOAD, RUN, MERGE, SAVE, DELETE e CMD"P". 

Esse é o módulo Basic residente quando um programa Basic está sendo executado. 


DIRCHECK/CMD, EDTASM/CMD, DISASSEM/CMD, 


LMOFFSET/CMD, SUPERZAP/CMD, CHAINTST/JCL, CHAINBLD/BAS e ASPOOL/MAS. 


Figura 1 


SYS4. É conveniente manter também o arquivo SYS8 para 
que o sistema responda ao comando DIR. 





A ESTRUTURA DO DIRETÓRIO 





Neste ponto, podemos iniciar a nossa incursão através dos 
registros do disco, mas antes será preciso dar uma olhada no 
diretório do mesmo. Lá deve constar o programa DIRCHECK/ 
CMD e o famoso SUPERZAP/CMD. Esses programas fazem 
parte integrante do NEWDOS e devem acompanhar o disco do 
sistema. Se você adquiriu um sistema onde não constavam es- 
ses dois programas, então procure um amigo que os tenha e 
tire uma cópia, pois é fundamental tê-los. 

O diretório de um disco nada mais é do que uma série de 
setores específicos onde são armazenadas as informações vi- 
tais sobre o estado do disco e seus arquivos (ou programas). O 
comando DIR apenas faz uma leitura sumária da situação e a 
apresenta ao operador. 

Na figura 2 vemos o resultado do comando DIR num disco 
bastante genérico. Podemos notar apenas os arquivos existen- 
tes e que não receberam atribuição de invisibilidade. No en- 
tanto, existem mais coisas por trás do diretório do que se 
possa sonhar. Para que os fantasmas comecem a aparecer, 
será necessário utilizar o SUPERZAP. 
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DRIVE 


TESTE /BAS 
NWDSOV2 /ILF 
MICROSIS/BAS 


Figura 3 


O NEWDOSSO 00/00/00 


40 TRKS 27 FDES 64 GRANS 
DIRCHECK/CMD | ALO/BAS 
CPD/BAS FUCFUC/CMD 


EDTASM/CMD PLANO /BAS 


CHAINTST/JCL 
LMOFFSET/CMD 
SUPERZAP /CMD 
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Com o programa SUPERZAP na memória do micro, exe- 
cute o modo DD, com os parâmetros de entrada 0,170 para o 
CP 500, ou 0,360 para o DGT 100. Esses dois setores (170 e 
360) são os primeiros setores do diretório e devem correspon- 
der mais ou menos à figura 3 (depende dos arquivos ou progra- 
mas do seu disco). 


O SETOR GAT 
(Granule Allocation Table) 





O setor GAT é o primeiro setor do diretório e contém as 
seguintes informações (acompanhe pela figura 3 e no seu equi- 
pamento): 

Tabela de distribuição dos grânulos livres — cada um dos 
bytes no intervalo 00H a SFH corresponde a um LUMP e cada 
bit corresponde ao status ocupado/livre de todos os grânulos 
do LUMP. O bit 0, do byte, corresponde ao primeiro grânulo 
do LUMP, o bit 1 ao segundo e assim por diante até que se 
completem 8 grânulos. Se o bit for igual a 0, o grânulo está 
livre e poderá ser utilizado. Se o bit for igual a 1,0 grânulo 
está ocupado ou não existe. 

Vejamos como exemplo o byte 21H. Ele corresponde ao 
trigésimo quarto LUMP do disco (21H=33 decimal). Como na 
formatação do disco normalmente o LUMP é definido com 2 
grânulos, o valor FEH vai nos indicar que o primeiro grânulo 
do LUMP está livre, porém o segundo está ocupado 
(FEH=11111110). 

Tabela de existência do grânulo — Os bytes no intervalo 
60H a BFH estão relacionados aos bytes 00H a SFH. Se um 
bit do byte é O, então o grânulo correspondente na área 
00H a SFH para esse LUMP existe e pode ser usado. Se o bit 
for 1, então o grânulo não existe, não pode ser utilizado e o 
seu correspondente na área 00H a SFH deve ser igual a 1. Na 
realidade, embora o NEWDOS crie esses bytes de existência 
durante a formatação, eles só servem para manter a compati- 
bilidade com os velhos TRSDOS. O NEWDOS nunca seta um 
grânulo inexistênte. Quando necessário, a tabela de existência 
do grânulo é descartada e os seus bytes são utilizados na tabela 
de distribuição dos grânulos livres, ficando esta com a faixa 
00H a BFH. 

Código da senha do disco — O código da senha do disco 
está contido nos bytes CEH e CFH. 

Nome do disco — O nome do disco está nos bytes DOH a 
D7H. 


25A5 24A4 2343 24A4 0000 0000 0000 0000 %.5. HS... ...... 


5800 2A00 5C45 0067 0000 0000 0000 0000 X.tNE.g........ 


FOOO 0000 7C00 001F 0000 0000 0000 0000 


0000 0000 0000 0000 0000 0000 0000 0000 
0000 A100 3200 8900 0000 0000 0000 0000 ....2........... 
0000 0000 0000 0000 0000 0000 0000 0000 


Figura 4 
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Data do disco — A data do disco está nos bytes D8H a 
DFH. 

Comando AUTO — Se o comando AUTO estiver ativado, a 
sua sintaxe constará dos bytes EOH a FFH. Se o primeiro by- 
te dessa área for ODH, então o comando AUTO foi desativado. 


O SETOR HIT 
(Hash Code Index Table) 





O setor HIT (figura 4) é o segundo setor do diretório (171 
ou 361) e cada um de seus bytes serve para indicar quando e 
onde estão localizadas as informações referentes aos arquivos 
do disco. A posição de cada byte dentro do setor é quem for- 
nece a localização das informações. 


Cada grupo de informações relativas a um determinado ar- 
quivo recebe a denominação genérica de FDE. Se um byte do 
setor HIT possui valor 00H, o seu FDE correspondente está 
livre e pode ser usado ou então ele não existe. Se o byte for 
diferente de 00H, então o FDE correspondente está em uso e 
esse byte do setor HIT é o Hash Code obtido pelo nome e ex- 
tensão do arquivo. 

O 329 byte do setor HIT é usado de modo diferenciado dos 
outros bytes do setor. Ele contém o total dos setores extras 
alocados para o diretório. Os valores possíveis são: 0, 5, 10, 
15 e 20. 


OS SETORES DE FDE 
(File Directory Entry) 





Os demais setores do diretório têm os seus 256 bytes divi- 
didos em 8 grupos de 32 bytes cada um. Cada grupo desses é 
que recebe a designação genérica de FDE e guarda todas as 
informações dos arquivos ou programas. Um FDE está livre se 
o bit 4 do seu 19 byte for igual a O e está em uso se o bit for 
igual a 1. 

Na figura 5 temos um setor com seus 8 FDE. O 19 FDE 
inicia no byte 00H e vai até o byte 1FH, e assim por diante. 
Podemos identificar, nesse setor, os arquivos SYSO, SYS8, 
SYSl6 e os programas ALO/BAS, CHAINTST/JCL e 
NWD80V2/ILF. Identificamos também um FDE totalmente 
zerado e um programa, FITA7/BAS, que foi deletado pelo 
comando KILL (note o seu 1º byte). 


5F20 0000 0053 5953 3020 2020 2053 5953 ....SYSO....SYS 
5678 1234 0FO0O 0022 FFFF FFFF FFFF FFFF VX.4..."........ 
5F20 0000 0053 5953 3820 2020 2053 5953 ....SY58....5YS 
5678 1234 0500 1300 FFFF FFFF FFFF FFFF VX.4............ 
5F20 0000 0053 5953 3136 2020 2053 5953 ....5Y516...5YS 
5678 1234 0500 0800 FFFF FFFF FFFF FFFF VX.6,.........0.. 
1020 0020 0041 4C4F 2020 2020 2042 4153 

9642 9642 0100 0220 FFFF FFFF FFFF 

0000 0000 0000 0000 0000 0000 0000 0000 

0000 0000 0000 0000 0000 0000 0000 0000 

0020 0020 0046 4954 4137 2020 2042 4153 

9642 9642 0100 2220 FFFF FFFF FFFF FFFF .B.B.."......... 
VO020 0032 0043 4841 494E 5453 SUMA 434C .,.2.CHAINTSTICL 
9642 9642 0200 0800 FFFF FFFF FFFF FFFF .B.B............ 
1020 0000 OO4E 5744 3830 3632 NWD80V2. ILF 
9642 9642 0300 2120 FFFF FFFF FFFF FFFF .B.B..!......... 





Figura 5 
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Quando o NEWDOS é solicitado a manipular um determina- 
do arquivo (LOAD“ALO/BAS” por exemplo), ele imediata- 
mente calcula o seu Hash Code (ALO/BAS-=2AH) e vasculha o 
setor HIT buscando uma paridade. Quando tal paridade é en- 
contrada, o FDE correspondente é lido e seu nome e extensão 
são comparados com os fornecidos pelo usuário. Se o sistema 
não encontrar semelhança, então a busca no setor HIT conti- 
nuará até o arquivo ser encontrado ou terminar o setor HIT. 

Note que, no nosso exemplo, o Hash Code de ALO/BAS 
(ZAH) equivale também ao Hash Code do arquivo SYS4/SYS, 
apenas a sua posiçao difere (SYS4/SYS é o byte 06H do 
setor HIT e ALO/BAS é o byte 62H). Para determinar a posi- 
ção do Hash Code de um arquivo dentro do setor HIT, basta 
somar a posição do 19 byte do seu FDE ao setor do disco, 
menos 172 (ou 362). No exemplo (ver figura 5)o 19 byte do 
FDE de ALO/BAS é 60H e está no setor 174, assim 
62H - 60H+02H. Dé uma olhada no byte 62H da figura 4 e 
você terá a confirmaçao. 


FPDE 
(File Primary Directory Entry) 


Quando o bit 7, do 19 byte do FDE, é igual a 0, então esse 
FDE recebe a denominação específica de FPDE. Caso contrá- 
rio, se O bit for 1, a denominação será FXDE. A diferença en- 
tre FPDE e FXDE é apenas para determinar se um FDE con- 
tém todas as informações do arquivo ou se ele é apenas uma 
extensão de um outro FDE. O FPDE, como o próprio nome 
diz, contém as principais informações do arquivo e pode, ou 
não ter extensões FXDE. 


1020 0020 0041 4C4F 2020 2020 2042 4153 


9642 92642 0100 0220 FFFF FFFF FFFF FFFF .B.B............ 





Figura 6 


Como podemos ver, o FPDE é a “carteira de identidade” 
dos arquivos ou programas do diretório. Na figura 6 temos um 
dos FPDE da figura 5 (correspondente ao programa ALO/ 
BAS). Cada um dos 32 bytes tem uma significação muito espe- 
cial para o sistema. 


19 byte — esse é um dos bytes fundamentais do FPDE e 
deve ser bastante conhecido pelo usuário. Cada um dos seus 
bits significa: 


bit7 — O indica um FPDE. 
= indica um FXDE. 
bit 6 —  O= arquivo normal (CMD, BAS, JCL, DAT, etc). 
1 = arquivo do sistema (SY'S). 
bitS — indefinido. 
bit4—-  O=FDE está livre e pode ser ocupado. 
I=FDE contém um arquivo (está ocupado). 
bit3 —- O=arquivo visível. 


1 = arquivo invisível. 


bit2a 0 nível de acesso ao arquivo ( o valor estará entre O e 
7 e corresponde aos níveis do parâmetro PROT, 
do comando ATTRIB). 


Podemos notar- facilmente que esse é o BYTE que recebe 
todas as atribuições do arquivo e que um arquivo normal do 
usuário, sem proteção ou atribuição, deverá té-lo com o valor 


10H, pois 10H = 00010000 (bit 4= 1). B 
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A PERFEITA HARMONIA QUE VOCÊ PROCURA 


venha comprovar nosso atendimento 
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O sucesso no Micro-Festival 84, 
já ú da qualidade maior, 


29 byte — esse byte mantém alguns parâmetros relaciona- número do grânulo inicial dentro do primeiro grupo. A teoria apresentada nesse trabalho é apenas uma introdu- 


dos aos comandos do DOS. Seus bits significam: 

bit 7 — = Oo arquivo pode ocupar mais espaço quando ne- 
cessário. 
| = não é permitida a ocupação de mais espaço 
(DIR, ATTRIB, CREATE, e a rotina de término 
de arquivo do DOS utilizam esse bit). 

bit6- 0=o fechamento de arquivo (a nível de DOS) pode 
realocar os grânulos excedentes acima do EOF. 
| = o realocamento não é permitido (DIR, CREATE, 
ATTRIB utilizam esse bit). 


bitS —  O=não há registro para arquivo. 


1 = pelo menos um setor do arquivo foi gravado ou 
atualizado (DIR, ATTRIB, CREATE,PROT,COPY 
e a rotina de gravação do DOS utilizam esse bit). 


bit 4a O não são utilizados. 
39 byte — não utilizado. 


Os outros 5 bytes são o número de grânulos adjacen- 
tes menos 1. 


319 e 329 bytes — par de bytes apontadores que serve para 
assinalar o fim do FPDE ou sua extensão. 


19 byte 255 (FFH) — indica fim do diretório. 
254 (FEH) — existe para esse arquivo uma exten- 
são FXDE. 


29 byte seo 19 byte for 254, então esse byte representa o 
código da posição para localização da extensão 
FXDE. 





FXDE 
(File Extended Directory Entry) 





Quando o arquivo possui mais do que 4 áreas associadas, 


ção ao conhecimento necessário para alterar o diretório com 3) 


segurança, porém com paciência e atenção será possível corri- 
gir a maior parte dos problemas que o disco apresentar. Va- 
mos, a título de ilustração, ver como recuperar um arquivo 
acidentalmente, ou não, deletado. 


Tomemos como base a figura 5. Nela há o programa 
FITA 7/BAS que, como o 19 byte do seu FPDE mostra (byte 
AQH), foi eliminado pelo comando KILL. Para que o arquivo 
passe a existir no diretório, basta que o bit 4 do 19 byte seja 
setado. Para proceder à alteração, utilize o SUPERZAP em 


modo de modificação. Digite MODAO e o cursor piscará exa- 


tamente em cima do byte desejado. Introduza o valor 10H e 
execute a modificação (ENTER). No FPDE isso é tudo que se 
tem a fazer, lembrando também que essa é a forma de eliminar 
as proteções dos arquivos. 


DRIVE O NEWDOSSO 00/00/00 O TRKS 27 FDES 64 CRANS 


TESTE /BAS DIRCHECK /CMO ALO/BAS FITAZ/BAS 


do preço menor e 
das vendas realizadas, 


agora tem um novo nome: 


A 
Assalto 
q erafi 
e um novo endereço: 


SBLCO 


computer store 


A Sacco Computer Store, está agora em novas e & 


49 byte — byte de baixa ordem do EOF. então é criado o FXDE, que passa a funcionar como extensão CHAINTST/JCL  NWDSOV2/ILF  CPO/BAS FUCFUC/ CM ala lagos cava gi sua variada linha de compu- 
em ft ” é: LMOFFSET/CHO MICROSIS/BAS  EDTASM/CNO PLANO/BAS adores e periféricos, destacando-se o novo micro- 
50 byte — tamanho da gravação lógica (LRECL, O = 256) do FPDE. O formato do FXDE SUPERZAP/OHO computador CRAFT Il plus*, totalmente compatível 


em quantidade de bytes. 19 byte — bit 7 e 4 são ambos iguais a 1 para indicar um com D.O.S. 3.3 e CP/M. 


69 ao 139 bytes — nome do arquivo. 

149 ao 169 bytes — extensão do arquivo. 

179 e 189 bytes — código da senha do arquivo. 
190 e 209 bytes — código da senha de acesso. 
219 byte — byte médio do EOF. 


22º byte — byte de alta ordem do EOF. Os 3 bytes juntos, 


49, 210 e 220 formam o valor do EOF. 


239 ao 309 bytes — 4 pares de bytes onde cada par especi- 
fica uma área de 1 a 32 grânulos adjacentes e associados ao 
arquivo O formato de cada par apontador é: 


19 byte 255 — significa o fim da área para aquele arquivo. 


254 (FEH) — significa que o próximo byte contém 
o código da posição do primeiro, ou próximo, 
FXDE associado ao arquivo. 
O a 253 (00H a FDH) — representa o LUMP do dis- 
co em que tal área começa. Esse valor é também a 
posição, dentro do setor GAT, do byte associado a 
ele. 

29 byte Quando o 19 byte é menor que 254, os 3 primeiros 
bits do 20 byte (faixa de O a 7) representam o 


FXDE, e todos os outros bits devem ser iguais a O (o valor cor- 
respondente será 90h — 10010000). 


2º byte — código DEC do FPDE ou FXDE anterior para 
esse arquivo. 


39 ao 22º bytes — não são utilizados e devem ser zerados. 
239 ao 329 bytes — são utilizados da mesma forma que no 
FPDE. 





A MANIPULAÇÃO 
DOS DADOS DO DIRETÓRIO 





Alterar ou manipular os dados do diretório de um disco é 
mais ou menos como mexer com abelhas: se você souber o que 
está fazendo, não há tantos riscos de catástrofes como à pri- 
meira vista possa parecer. De fato, esse é o único meio seguro 
de aprender algo, e se alguém tivesse que dar “conselhos” so- 
bre esse assunto, o único digno de nota seria: não tenha medo 
e vá em frente. Quem nunca levou um tombo de bicicleta, 
nunca realmente aprendeu a andar nelas. 


Por esse motivo, é sempre bom usar cópias (backup) e dei- 
xar sempre um disco como matriz. 


SUPERZAP: descrição e operação 


SUPERZAP é um dos utilitários Os modos de di 
mais poderosos que existe 
atualmente no mercado. A sua 

eee põe não se restringe apenas ao 

+ podendo mesmo operar com 
atitadr sistemas, respentando-se, é claro, 


certas limitações. trilha (TRS). 


(acompanhe pela 
coluna 1 — especi 


Ele se presta a uma série de operações coluna 2 — índice dos bytes do setor. 


coluna 3 — os 256 bytes do setor - 
apresentados em pares hexadecimal. 


coluna 4 — os 256 bytes do setor 
apresentados em caracteres. 


tais como: consertar setores do disco, 
desproteger arquivos, recuperar programas, 
limpar áreas e copiar setores. A sua operação 
é bastante simples e seu menu apresenta 
todos os modos de operação possíveis. 
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display apresentam um setor 
standard de 256 bytes, E forma 


uestão: Drive (DRV), setor do drive 
RS), trilha (TRK) e setor relativo da 


Para dentro do disco 
rag rare  hompade mat 
ou a tecla — para 


ra ER aire 
a ppm 25 rr 


digitando EXIT o 
abandonado e é feito o retomo ao DOS. 
Para alterar um sobr basta 
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NEWDOS/8O READY 





Figura 7 


Se sairmos do SUPERZAP (EXIT) e dermos o comando 
DIR do DOS, o diretório passará a listar o programa recupera- 
do (figura 7), porém isso não significa que o programa está 
accesível (notar que os parâmetros de ocupação do disco ainda 
são os mesmos da figura 2). Para que o programa possa ser li- 
do, será preciso consertar também o setor HIT 


O programa DIRCHECK pode ser muito útil nesse momen- 
to. Com ele será possível localizar qual byte do setor HIT está 
“com defeito” e obter uma análise do andamento das modifi- 
cações no diretório (se alguma coisa estiver errada, o DIRCHECK 
acusará o erro e o seu local). 


No nosso exemplo ocorrerá a mensagem de erro no byte 
A2H do setor HIT. Na figura 4 podemos constatar que esse 
byte está zerado, quando deveria conter o Hash Code de 
FITA 7/BAS. O modo DNTH, do SUPERZAP, calcula esse 
Hash Code, que no nosso exemplo será DAH. Agora é só posi- 
cionar esse valor no setor HIT e ZAP. Como que por encanto... 
lá estará o programa FITA 7/BAS. 


Não se entusiasme muito, pois coisas ainda podem aconte- 
cer. Lembre-se sempre de que, para um programa ser recupera- 
do com pleno sucesso, ele precisa antes existir. Se houve qual- 
quer gravação posterior no disco que sobrepôs parte, ou a tota- 
lidade do espaço ocupado pelo arquivo, recuperá-lo será uma 
tarefa impossível. Alguns casos, no entanto, podem ser resol- 
vidos mas isso irá exigir algumas “cirurgias” e uma boa dose de 
criatividade por parte do usuário. A regra continua sendo a 
mesma: tentar, mesmo que isso signifique a destruição total 
dos registros do disco (afinal era apenas uma cópia). 
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Conheça todas as características e vantagens 


do CRAFT Il plus, também compatível com IVANITA**, 
em nosso novo endereço: 


Al. Gabriel Monteiro da Silva, 1229- J. Paulistano 


São Paulo - Tels.: (011) 853-5520 e 280-4778 


SOFTHARE 
E 
MANUTENÇÃO 


= 


| 
| 
| 
| 


| DE 
| COMPUTADORES 


e Assistência técnica 
em microcomputadores nacionais 
e importados, compatíveis com: 
Apple, TRS-80, PCABM, periféricos... 
ai 6=/6/0//04/=/6 1600 62]0]/0/0 8011/67/10 1457 
ou em nosso laboratório credenciado, 
sob contrato anual ou chamada avulsa. 


Av. Corifeu de Azevedo Marques, 1691 - Cj. 01 
Tel.: 813-6661 

Futuras instalações: R. Pinto Gonçalves, 115 
Tel.: 62-2773 














O micro da Scopus na Av. Tiradentes 


Nexus aprovado, 
Scopus pede passagem 


A loja Imarés, de São Paulo, está 
vendendo uma variada lista de 
aplicativos comerciais e pes- 
soais, acompanhados de manuais, 
etiquetas com o resumo do con- 
teúdo do sistema e garantia de 
manutenção. Os aplicativos estão 
disponíveis em disquetes ou fi- 
tas cassete. A Imarés já está co- 
mercializando também o micro- 
computador de 16 bits PC 2001, 
da Microtec, compatível com o 
PC da IBM. A configuração bá- 


Prestação de Serviços 






sica do PC 2001 é composta por 
UCP com 256 Kbytes, monitor 
de fósforo verde de alta resolu- 
ção, interfaces serial e paralela, 
dois drives para disquetes de 5”, 
e unidade de teclado desta- 
cável. Acompanham o equipa- 
mento um processador de texto 
(wordstar), uma planilha de cál- 
culos (calcstar) e um gerencia- 
dor de arquivos (infostar). A 
Imarés oferece garantia do PC 
2001 pelo período de um ano. 


Link 727 


A Link Tecnologia e a Microtec Sistemas 
se associaram para o lançamento do Link 727, 
um microcomputador totalmente compatível 
com IBM PC. As primeiras 20 máquinas foram 
entregues no final de 83, para avaliação por 
parte de grandes empresas, revendas, software- 
houses e assistências técnicas e, segundo a Link, 
a aceitação e desempenho foram considerados 
excelentes. O Link 727 tem UCP com proces- 




















-—- — — 
in 


PC Filter 


Ruídos e interferências de rádio-frequên- 
cia em microcomputadores sem dúvida já 
deixaram muita gente a ver navios após lon- 
gas horas de digitação jogadas por água abai- 
xo. Os ruídos e interferências são gerados de 
várias formas, entre elas por motores sendo 
acionados, aparelhos domésticos etc., e, pe- 
netrando em computadores, podem causar 
danos desde a perda de programas ou arqui- 
vos, e até dano físico em componentes. Pro- 







sador INTEL 8088, de 16 bits, velocidade de 
5 MHz e memória de 256 Kbytes de RAM. A 
configuração básica vem com dois acionadores 
de discos de 5 1/4", de dupla face e dupla 
densidade, e monitor profissional de fósforo 
verde. Já se encontram disponíveis também 
os seguintes periféricos: expansão de memória 


O 727, da Link 


até 1 Mbyte, disco Winchester de 5 ou 10 
Mbytes e monitor policromático RGB. Em 
sua configuração inicial, o 727 custa 1.525 
ORTN, e a empresa Link está selecionando re- 
vendedores. 








Acessório 


curando evitar este tipo de problema, a BSL 
Equipamentos Ltda. está lançando no Bra- 
silo PC Filter. O PC Filter pode ser instala- 
do pelo próprio usuário e já se encontra :ã 
venda nas lojas Imarés, em São Paulo. Seu 
preço é de 10 ORTN. 








M-100 X,a novidade da Globus 


A Globus está lançando no mercado a impressora M-100 X, um 


para rede Cetus 


A Cetus é uma rede local do 
tipo “bus” (serial) com 


Depois de lançar sua rede local, a 
Cetus coloca no mercado o servidor 


Depois de um investimento de Cr$ 250 milhões no ano passado e 
a mobilização de uma equipe de 17 profissionais de hard e software 
durante cerca de 11 meses, a Scopus conseguiu a aprovação do Nexus, 
seu microcomputador de 16 bits. A aprovação da SEI torna a Scopus 
a única empresa nacional autorizada a fabricar um micro de 16 bits, 
compatível com o computador pessoal da IBM. Segundo a Scopus, 
um fator fundamental para a aprovação do Nexus foi a demonstra- 
ção, por parte da empresa, de que o software básico do equipamento 
— SISNE e Interpretador BASIC — foi realizado com recursos pró- 
prios e sem dependência de fontes externas de tecnologia. 

A título de curiosidade, a Scopus esteve presente no carnaval pau- 
lista deste ano, colocando na avenida três microcomputadores de sua 
fabricaçao. Os micros participaram da festa desde a fase de organiza- 
ção até o dia do desfile, controlando a montagem das arquibancadas, 
a instalação de som, iluminação e decoração, entre outras atividades, 
e fornecendo informações importantes, tais como horários dos desfi- 
les, letras de sambas enredo e serviços diponíveis na avenida. 





Brasil Trade Center: 
negócios em expansão 


Os negócios parecem que vão 
de vento em popa. O grupo em- 
presarial Brasil Trade Center e 
Participações S/A, no Rio de Ja- 
neiro, além de sua sede em lIpa- 
nema está inaugurando uma fi- 
lial no Centro, na Rua da Assem- 
bléia, 10, loja. 

Como bem define o presiden- 
te do grupo, Manoel D'Assunção 
F. Gomes, o BTC é um Banco 
de Negócios, aberto a qualquer 
segmento de mercado que se 
mostre promissor, tendo como 
meta principal fomentar o inter- 
câmbio com o mercado interna- 
cional e oferecer uma série de 
produtos e facilidades ao empre- 
serário e outras pessoas interes- 
sadas. 

São várias empresas dentro 
de uma só, e entre elas está a 
BTC Computadores e Vídeo 
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(Compvídeo). Não é apenas uma 
loja, como diz Manoel D'Assun- 
ção, “é uma comunidade basea- 
da no sistema cooperativista, da 
qual podem participar todas as 
pessoas interessadas em micro- 
computadores, videocassetes e 
videogames”. A ela estão direta- 
mente ligadas outras empresas 
da holding que permitem ofere- 
cer serviços paralelos aos usuá- 
rios, como a BTC Viagens e Tu- 
rismo, promovendo visitas aos 
principais centros de informáti- 
ca norte-americanos, bem como 
a feiras e exposições, e a BTC 
Administraçao de Consórcio, fa- 
cilitando a aquisição dos equi- 
pamentos pelos clientes. 

A Compvídeo comercializa 
toda a linha de microcomputa- 
dores existentes no mercado na- 
cional, além de impressoras, dis- 


Bolsas de Estudo 


Estão abertas inscrições para bolsas de estudo nos cursos de . 
pós-graduação e mestrado em Eletrônica, ano letivo de 1985, que 

se realizam no “Philips International Institute — PIT”, poi rã 
dr Holanda. Os candidatos devem ser diplo s ou estar 
cursando o último ano de Engenharia Eletrônica du 


ísica, não 
ter dependências em seus cursos na data do emisrque, terá — 
de máxima de trinta anos e falar fluentemente o idioma. 
As inscrições podem ser feitas até dia 31 de maio, pessoslmente 
ou por carta, na Gerência do Departamento de Er 
Seleção de Pessoal da Philips, Rua Geraldo Flausino Gomes, 33, 3, 
8º andar, São Paulo, tel.: (011) 545-2377. a 


de arquivos CS 1200. O CS 1200 é 
um nodo especial capaz de 
gerenciar até quatro unidades 
de discos rígidos Winchester de 
5 ou 10 Mbytes, permitindo 
assim que diferentes usuários 
da rede compartilhem de um ou 
mais discos. O nodo é um 
elemento inteligente de ligação 
entre o equipamento usuário 

e a rede. Já a ligação do 
equipamento usuário com o 
nodo é feita através de uma 
interface serial padrão RS 232C 
ou uma interface paralela tipo 
Centronics. 


protocolo de comunicação 
interno transparante aos 
elementos da Rede. Não existe 
nenhum elemento centralizador 
ou controlador da rede, todos 
os nodos são inteligentes. Se 
houver falha em algum dos 
nodos, esta não irá interferir 

na comunicação entre os demais 
elementos da rede. Podem ser 
ligados à rede local Cetus 
computadores, 
microcomputadores e todos os 
periféricos. A rede Cetus 
permite a interligação de até 
255 nodos. 





O Sistema de Contabilidade 
Geral da empresa carioca Nasa- 
jon Sistemas, para a linha TRS- 
80, pode ter seu arquivo de da- 
dos expandido em até quatro 
disquetes com 1? mil lançamen- 
tos por disquete e seu tempo de 
resposta é de 3 segundos. 


Este software, desenvolvido 
para o CP-500 e DGT-100, é ca- 
paz de emitir relatórios como 
extrato de contas, livro diário, 
livro razão, relatório para centro 
de custo, balancete de verifica- 
ção, balancete mensal e balanço 
geral. 


modelo aperfeiçoado com capacidade de imprimir 100 caracteres por 
segundo, em 132 colunas. A principal mudança neste produto consis- 
te na substituição da cabeça de impressão que passa de sete para nove 
agulhas, garantindo melhor qualidade visual e permitindo maiores re- 
cursos de impressão. O sustendador da cabeça de impressão é em du- 
plo eixo e o equipamento possui grande flexibilidade de software, 
compatibilidade Epson e com pacotes Apple Il. 


Danvic lança 
Caçula com sucesso 


Danvic 





Oferecendo serviços paralelos aos usuários de micros e vídeos, a 
Compvídeo investe na indústria de Informática na medida em que ela 
esteja liga da ao lazer e à administração. 


quetes, drives, jogos em fita cas- 
sete, videogames e videocassetes. 
O software aplicativo é desenvol- 
vido por uma equipe de analis- 
tas, que também ministram cur- 
sos de BASIC na própria Comp- 
vídeo. Possuem financiamento 


próprio em até 10 vezes sem ju- 
ros, com mensalidades reajusta- 
das de acordo com a ORTN do 
mês. A sede do BTC fica na Av. 
Epitácio Pessoa, 280, Ipanema, 
tel.: (021) 259-1299, Rio de Ja- 
neiro, RJ. 
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STRINGS 


“As lojas CompuShop, de São Paulo, estão vendendo discos rígidos 
fabricados pela GEN, do Rio Grande do Sul. O disco de 5 Mbytes 
custa 750 ORTN e o de 10 Mb, 900 ORTN.xA filial da Microdigital 
de Porto Alegre coloca à disposição dos usuários da linha TK o seu 
telefone: 24-5060. Para aqueles que desejarem dirigir-se diretamente 
ao local, o endereço é Av. Borges Medeiros, 410, bloco Il, 11º andar, 
conj. 1108. À Lys Eletronic e a Stieletronica assumiram, em partes 
iguais, o controle acionário da Stratus Informática, elevando seu capi- 
tal social para Cr$ 300 milhões. Os novos recursos, segundo a empresa, 
permitirão desenvolver novos produtos e expandir a linha de impresso- 
ras, terminais impressores, teleimpressores e telex eletrônico.x À Esul- 
tra, de Belo Horizonte, está oferecendo cursos de Gerência Empresa- 
rial, Análise de Sistemas, Programação COBOL e Programação BASIC, 
utilizando equipamentos SID 3000, S-700, CP-500 e CP-200. Informa- 
ções na Av. do Contorno, 6475/5826 e Rua Sergipe, 1199. 
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Apresentado na última Feira 
de Informática, o microcom- 
putador Caçula, fabricado pela 
Danvic S.A., entrou de sola no 
mercado paulista: duas sema- 
nas depois de seu lançamento 
a nível comercial foram vendi- 
das, em 15 dias, 60 unidades, 
ou seja, a produção relativa a 
dois meses deste equipamento. 
Com isso a empresa superou 
suas expectativas de duplicar o 
faturamento neste ano, espe- 
rando agora quadruplicá-lo. 

Em sua configuração mí- 
nima, o Caçula vem com UCP 
com dois processadores Z80A 
(sendo um para o vídeo), te- 
clado profissional com letras 
maiúsculas ou minúsculas, te- 
clado numérico separado, ví- 
deo de fósforo verde 80 x 24 


e um drive para disquetes de 
5 1/4” face simples. 


O próximo lançamento da 
Danvic será o Caçula Dual, que 
além do Z80A terá também 
um microprocessador 8088, de 
16 bits, e três sistemas operacio- 
nais: CP/M versão 2.2, CP/M 
86 (16 bits) e MS-DOS (16 bits 
utilizado no PC da IBM). E os 
proprietários do Caçula que 
quiserem passar a trabalhar 
também com 16 bits poderão 
comprar a placa com o proces- 
sador 8088 separadamente. A 
placa já está disponível no mer- 
cado em duas versões, com 
128 kb e com 256 kb. Os dois 
equipamentos são totalmente 
compatíveis com o DV 2000, 
sistemaimultiusuário da Danvic. 








Com uma diferença de me- 
nos de seis meses do grande 
evento da área, a Feira de Infor- 
mática, não poderiam ser muitas 
as novidades apresentadas no 
Microfestival 84. O que se viu, 
de modo geral, foram implemen- 
tações em cima de produtos já 
lançados no Informática 83. 

No entanto continuam apa- 
recendo no mercado novos mi- 
cros de 8 bits. É o caso do ATS 
2800, da Angra, empresa que es- 
tá ingressando na área. O ATS é 
um microcomputador multitare- 
fa, com processador Z80A e me- 
mória RAM que varia de 64 K 
até 4 Mb. Sua configuração bá- 
sica é composta por teclado com 
UCP, drive para disquete de 5 
1/4" e vídeo de 12'' de fósforo 
verde. O preço desta versão é de 
570 ORTN. 

A Racimec apresentou seu 
micro portátil, o Senior, com 
processador 8085, composto 
por dois módulos básicos — te- 
clado com visor e drive com 
UCP — que se fecham em uma 
única caixa para transporte. A 
empresa lançou também duas 
impressoras, Ita e Carla, de 100 
e 120 cps respectivamente. 

A Itautec mostrou a linha 
| 7000 Jr em duas versões: Jr e 
Jr E, que apresentam diferenças 
básicas a nível de teclado e dis- 
quetes. O Jr E, além do teclado 
alfanumérico, possui um teclado 
numérico reduzido e pode traba- 
lhar também com disquetes de 
8", A empresa lançou vários ser- 
viços de suporte, entre os quais 
uma série de 160 aplicativos pa- 
ra diversas áreas e que rodam em 
qualquer um de seus equipamen- 
tos. 

Na linha dos micros compa- 
tíveis com o Apple, tivemos o 
Elppa Jr, em versões de 16 e 48 
K de RAM, e o Apple Senior (da 
Milmar, fabricante do Apple ll 
Plus), que além do processador 
6502, vem também com um 
Z80A, tem teclado numérico 
reduzido e trabalha com letras 
maiúsculas e minúsculas. O AP 
H, da Unitron, tem agora uma 
nova versão, a T. |. (teclado in- 
teligente). O novo teclado tem 
processador próprio e 2 K de 
RAM, caracteres em português, 
maiúsculas e minúsculas, e per- 
mite que se carregue caracteres 
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especiais através do disco, atri- 
buindo funções a determinadas 
teclas. À Unitron lançou tam- 
bém um monitor de vídeo de 
fósforo verde, 12'* e alta resolu- 
ção. A Microdigital mostrou o 
TK 2000 Color (que roda Apple- 
soft), agora disponível para co- 
mercialização. 

Para a linha Sinclair, a Tigre 
Eletrônica lançou cartuchos 
com programas em linguagem de 
máquina, diretamente adaptá- 
veis aos equipamentos, os quais 
são comercializados pela Exa- 
tron. 

A Dismac apresentou no Mi- 
crofestival 84 o PC 16, compatf- 
vel com o PC da IBM, Possui 
processador 8088 e memória va- 
riável de 256 K até 1 Mb, atra- 
vés de blocos de 128 K cada. A 
empresa trouxe também seu dis- 
co Winchester de 10 Mb para a 
linha do Alfa 2064. 

A UCTE — Unidade Contro- 
ladora de Terminais Educacio- 
nais foi a novidade apresentada 
pela Digitus. O equipamento, 





Sysdata ll, 
agora 

disponível 

para 
comercialização. 


ATS 2800, o 
micro- 
computador 
multitarefa 
da Angra. 


Discos Magnéticos 5 Mb. 16 Mb. BOMbetc 
DISKETTES: 5 1/4 e 8” - marca VERBATIM | 
ETIQUETAS PIMACO — PIMATAB E 


GR. 207 - TEL: (021) 2531120 E 263-5876 






Senior, 
computador 
portátil, e a 

impressora 

Carla, dois 
lançamentos 
da Racimec. 


conectado diretamente ao DGT 
1000, faz com que ele possa 
controlar até 16 outros DGT 
1000, que passam a funcionar 
como terminais para transferên- 
cia e recebimento de programas. 

A Elebra lançou um módulo 
opcional para à impressora Mô- 
nica, que permite traçar gráficos 
de alta resolução e a Videocom- 
po mostrou uma série de moni- 
tores de vídeo cromáticos de 
14''a 14 MC. 


PREOCUPAÇÃO COM O 
SOFTWARE 


Com relação aos lançamen- 
tos de software, o destaque fi- 
cou para os pacotes de ligação 
de micros a equipamentos de 
grande porte. A loja Imarés está 
comercializando dois desses pa- 
cotes. O BSC 3 permite a liga- 
ção de equipamentos da linha 
Apple a computadores 4341, da 
IBM. Nesse caso, o micro passa a 
emular um terminal da família 





SUPRIMENTO É COISA SÉRIA 


e Matenha o seu computador bem alimentado adquirindo produtos de qualidade consagrada. 

Gs * Fita Magnética: 600, 1200 e 2400 Pés 

e Fita CARBOFITAS p/Impressoras: Globus M 200 — B 300/600 
e Fita pl Impressoras: Efebra, Elgin, Epson, Digilab, Diablo, etc. 


e Cartucho Cobra 400 


e Pastas e Formulários Contínuos. 


















TK 2000 
Color, da 
Microdigital. 


3270. O outro pacote é o BSC 
1, através do qual os microcom- 
putadores passam a emular ter- 
minais 2780 ou 3780 para trans- 
missão de arquivos. 

Para o mesmo tipo de liga- 
ção, a Intertec também apresen- 
tou seus pacotes para micros 
com CP/M: Trans BSC3E, Trans 
BSC 3/T e a Versão |, uma roti- 
na de acesso a disquetes. A Labo 
foi outra empresa que apresen- 
tou um sistema para ligação de 
seus equipamentos emulando 
terminais 3270. 

Um sistema inteligente de 
resposta audível chamado Tal- 
ker foi a novidade apresentada 
pela BMK. Ele acessa banco de 
dados através de telefone e ge- 
rencia até 32 ligações. Já a Spec- 
trum, fabricante do Microenge- 
nho, lançou no Microfestival 84 
um kit para utilização desse mi- 
cro como terminal de videotex- 
to. 

A Compucenter lançou no- 
vos programas para controle de 
projeto, cálculo financeiro e ge- 
renciamento de banco de dados, 
entre outros, e no estande da 
Cobra estavam sendo demons- 
trados alguns dos 150 progra- 
mas listados pela empresa para 
serem utilizados em seus equipa- 
mentos em variadas áreas de 
aplicação. 

Ficou claro nesta mostra a 
preocupação crescente dos fabri- 
cantes de micros em ampliar ca- 
da vez mais o campo de utiliza- 
ção de seus equipamentos, atra- 
vés do desenvolvimento de soft- 
ware para as mais diversas áreas 
de aplicação. e] 

- 
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Este é um 
equipamento profissional. 
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O UNITRON AP Il é o microcomputador profissional de maior versatilidade. Com memória expansível até 
384 K, capacidade para até 14 unidades de disco, utilização do sistema CP/M, monitor de fósforo verde com 
apresentação de até 160 caracteres por linha, impressoras Elebra ou Elgin e diversos acessórios opcionais, O 
AP || pode ser configurado na medida certa das suas necessidades. Utilizando programas ou processando a 
folha de pagamento, o contas a pagar/receber, o controle de estoques e a contabilidade, o AP || é a solução 


ideal para os seus problemas ou da sua empresa. 


Ed 4 
Esta é uma empresa profissional. 

COMPUMICRO é a primeira empresa brasileira a adotar o conceito de “BUSINESS COMPUTER 
CENTER”. inteiramente dedicada ao uso profissional dos microcomputadores, a COMPUMICRO está ca- 
pacitada a prestar-lhe um ATENDIMENTO TOTAL, desde o levantamento de necessidades, configuração 
de equipamento, fornecimento de “hardware”e “software” e treinamento, até a implantação de SOLUÇÕES. 

A equipe da COMPUMICRO é formada por profissionais de elevada experiência e alta capacitação 
na área de Informática. Atuando desde 1981 na comercialização de microcomputadores, a equipe da 
COMPUMICRO após estruturar e dirigir duas das mais conhecidas lojas da cidade, e de fundar e dirigir a 
primeira revista brasileira de microcomputadores, estruturou-se para levar até você toda a experiência de 
quem já comercializou mais de 250 UNITRON AP II, para os mais diversos ramos de atividades. 


FINANCIAMENTO — ALUGUEL — LEASING 
unitron 


RENNES Rua Sete de Setembro 99 — 11º 
INFORMÁTICA EMPRESARIAL LTDA. PBX 224-7007 


repro 





410 GOSUB 100% 
420 DImDI+1 


A Tabela é um método contraceptivo antigo; a novidade é que, com é ) O IP DI<sLD(M) THEN GOTO 100% 
LLSE IF M<>2 THEN GOTO 460 


este programa, quem faz as contas é um micro da linha TRS-80 JO INPUTºO CICLO MENSTRL RE * 440 GOSUB 1300 


GULAR S/N" ;AS D<l OR D>31 THEN GOTO 230 450 1F BIi=l THEN GOTO 460 
23 FP DI=29 THEN GOSUB 1000 
230 PRINTCO PROGRAMA SO ADMITE A 460 Di=l: M=M+<1 
P ] 
f ] d d 


40 IF A$="S” THEN 130 220 GOTC 
F A$<>"N” THEN . 


SDTNUPEIIDA atoa ) A 
) RINIFIAU, QUAL é , NOS 








SUPERIORES A 1983, MESES ENT 470 IF M<1l3J THEN GOSUB 100€ 
DIAS,DO CICLO MENSTRUA RE 1 E 12, DIAS DE 1 A 31": GoToO 480 A=A+1l; M=1 
19€ 490 GOSUR 1000 
250 S$(1)="SEG*":5$(2) DR”: 1000 CO=C0+1 
I= "QUA" :SS (4) ="QUI":SS4S)="SEX": 1010 IF CO=ML+1 THEN GOT 
S$ (6) ="SAB":S$(7)="DOM":M$(1)="J 1020 PRINTEFF+Wº5,DI; 
AN" :M$(2)="FEVO:M$ (I)="MAR":MS (4 1030 IF CO>IN AND CO<=FI+1 
IS" ABR" :M$ (5) "MAIO :MS [6) ="JUN": coTo 1050 
M$ (7)="JUL":M$ (8) ="AGO":M$ (9)="S5 1040 GOTO 1060 
ETº:M$S(10)="OUT":;MS(1L)=“NOV":MS 1050 PRINTEFF+Wº5,"F" 
12)="DEZ” 1060 1 
270 LD(1)=31:LD(2)=28:L0(3)=31:L Is" /"sAs 
D(4)=30:LD(5]=31:L0/6)=30:LD(7) 1070 1F W THEN 
31:L0(8)=31:LD(9)=30:LD(10)]=31:L 1080 wew+] 
D(11/=30:LD(12/=31 1090 GoTo 420 
280 YI=INT(A/100): Y2=A-100ºY1r: 1100 FF=FF+64: 
N=0 1110 1F D1=297 
290 IF M>2 THEN GOTO 370 ro 420 
300 N=2 1300 IF Y2<> 
310 IF Y2=0 THEN GOTO 350 THEN GOTO 134 
320 RR=Y2-4" INT(Y2/4) 1310 IF Y2 / 
330 IF RR<>0 THEN GOTO 370 THEN GOTO 134 
E RAMA TRABAL 340 N=1: GOTO 370 1320 BI=1: RETURN 
HA COM VALORES ENTRE 23 E 50 DIA 350 RR=YI-4ºINT(YI/4) 1340 BI=0: RETURN 
S + GOT 360 IF RR=0 THEN LET Nel 1400 PRINT$773,"F=PROVAN 
190 PRINTWI2Z0, "QUAL A DATA DO AP 370 CC=INT(365.25"Y2)+INT(30.56º FERTIL*; 
ARECIMENTO (le : DA MENSTRUACA 1410 PRINTEBIT,KS; 
O (DD,MM,AAAA)” 1420 PRIN79990,"P/OUTP 
200 INPUT D,M,A GITE 9"; 
205 CLS 1430 INPUT T: IF 7 
210 IF A 1984 OR 


4 
o 


ec 
Ma 


vá 


Tu 
x 
h 


o 


asda 3 4 9 ea” 
INTEZ42+*64" INT 


sf 
Ash 





Armando Oscar Cavanha Filho MJ +N+D 
Maria Beatriz de Campos Cavanha 


380 W=3+CC-7º INT ((CC+2)/7) 
390 DI=D: CO=0: FF=192 
400 FOR J=1 TO 7: PRINTO128+9º5, 


xistem várias formas de se evi- 
tar a concepção, algumas com 
mais eficiência do que outras. 
Desenvolvido para a linha TRS- 
80, este programa não aprova nem desa- 
prova qualquer método utilizado, apenas 
faz uma interpretação (a partir dos da- 
dos bibliográficos) do método de Ogini- 
Knaus (conhecido também como Tabela ). 

O programa produz uma tabela com 
os dias mais prováveis de fertilidade (pos- 
sibilidade de engravidar) e infertilidade 
(possibilidade de não engravidar) com 
relação ao ciclo menstrual. Entende-se 
como ciclo menstrual o período (em nú- 
mero de dias) compreendido entre o pri- 
meiro dia do aparecimento de uma mens- 
truação e o primeiro dia da menstruação 
seguinte. Este ciclo será regular quando 
as menstruações ocorrerem com constân- 
cia em seus períodos de tempo e será ir- 
regular se houver variação do período 
das menstruações (veja figuras 1 e 2). 

Vejamos como funciona o programa 
através de um exemplo. Suponhamos 
que os ciclos sejam regulares de 29 dias, 
sendo que o primeiro dia de menstrua- 
ção tenha caído no dia 15 de maio de 
1984. Quais os dias provavelmente férteis 
e não férteis até a menstruação seguin- 
te? 

Para que o programa possa fazer este 
cálculo, o micro perguntará se o ciclo é 
regular e esta pergunta deve ser respon- 
dida com S/N. A partir daí, o programa 
perguntará qual o período, em número 
de dias, do ciclo menstrual e por último 
a data do aparecimento do primeiro dia 


sa 


1º dia de menstruação 
-19 dias 


1º dia 


-45 dido menstruação 
| mea] seguinte 


EE Es 


V “O n———— 
periodo 
provavelmente 


fertii 


periodo 
provavelmente 


infertil 


período 
provavelmente 
infertil 





Figura 1 — Ciclo regular 


1º dia da menstruação 
seguinte 
1º dia de 
menstruação 


1º Gla da 
menstruação 
seguinte 
ciclo tIrregular 
mais curto 


ciclo Irregular 
mais longo 


(AA 


periodo periodo periodo 
provavelmente provavelmente provavelmente 


Infertii fertil infertil 





Figura 2 — Ciclo irregular 
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S$(J): NEXT J 


da menstruação, a qual deve ser informada desta forma: DD, 
asi i Para o nosso exemplo, o resultado seria a seguin- 
te tabela: 


SEC TEM QUA QUI SEX SAM Dom 


15 16 17 15 1, 20 mMaIjioaa 

2+ 22 2+ 24 25 ré T27 matitosa 
2. FP TIO €-51 ++ Ed 1 Jumirsas 
* 5 “ t ho) , 10 Juwmitomas 
+ 12 Jumjroa. 


fo Provavelmente Fertit 
ciclos regular 


Pi OUTRO PLANO DIGITE 9? 


Agora vamos imaginar um caso de ciclos menstruais irregu- 


“lares, com os menores ciclos situando-se em 27 dias e os maio- 


res ciclos estendendo-se a 33 dias. Se o primeiro dia da mens- 
truação for 20 de janeiro de 1988, quais os dias prováveis de 
fertilidade? (observe que 1988 é ano bissexto). Rode o pro- 
grama e veja a resposta. 

Observação: se houver opção pelo conceito de que “contam- 
se 14 dias do final do ciclo para trás, variando-se três dias à 
frente e três dias para trás, trocar as linhas 120 e 260 por: 


120 IN=MC-17:FI=ML-11:CLS:GOTO 190 
160 IN=ML-17:FI=ML-11 


Os autores do programa agradecem ao Físico Fernando Ma- 
lheiros Roxo da Motta pelo auxílio prestado no desenvolvimen- 
to da lógica para construção do calendário. 
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Toda precisão é pouca quando se trata de cálculos computacionais em BASIC. 
Este artigo discute o assunto e apresenta algumas sugestões práticas 





Cálculos precisos em 


BASIC 


Akeo Tanabe 





empre que um procedimento de cálculo é mecanizado, 

usando calculadoras ou computadores eletrônicos, o 

problema da precisão passa a ser um ponto de considera- 

ção obrigatória. O objetivo deste artigo é mostrar justa- 
mente os aspectos desta questão, particulares aos cálculos com- 
putacionais realizados em microcomputadores, utilizando a lin- 
guagem BASIC. 

Na representação de um valor real em BASIC, estão implíci- 
tas as informações de grandeza e a precisão com que ela está 
representada. No cálculo manual, por não se impor limitação 
alguma ao número de algarismos significativos empregados na 
representação do número, a questão da precisão é, na maioria 
das vezes, ignorada. Já na aritmética computacional, como não 
podemos aumentar o número de algarismos significativos, o 
problema da precisão ganha grande importância, não podendo 
ser ignorado de maneira alguma. 


VISÃO COMPUTACIONAL DE UM NÚMERO REAL 





Como a precisão é ditada pelo número máximo de algaris- 
mos representados, é interessante determinar este valor na lin- 
guagem BASIC. 

Um valor real ou de ponto flutuante em BASIC, na forma 
normalizada, é representado por 0,]xxxxxxxxxxx * 20, onde 
xxxxx são algarismos da base 2 (O ou 1). O algarismo mais sig- 
nificativo da parte fracionária é sempre feito igual 1. Como a 
parte Fracionária tem sempre esta mesma forma, o zero, a vír- 
gula e o bit mais significativo não são efetivamente represen- 
tados. A posição que seria ocupada pelo algarismo mais signifi- 
cativo é ocupada pelo sinal do número. 

A parte fracionária, que representa os algarismos significati- 
vos do número, sem as informações citadas e juntamente com 
o sinal do número, é representada na porção conhecida como 
mantissa. A potência efetiva da base 2 (n), que dita a ordem de 
grandeza do valor, somada ao valor +128 é armazenada num 
byte, na porção conhecida como caracteristica. 

Uma descrição detalhada da mecânica desta representação 


34 


se encontra especificada no artigo “O Erro de Truncamento 
em BASIC”, apresentado em MS nº 24, de set/83.. 

A característica é representada da mesma maneira em quase 
todos os microcomputadores; já a mantissa é representada dife- 
rentemente nos vários micros. Por exemplo, no CP-500 a man- 
tissa é representada em 3 bytes (24 bits). No TRS-80 Color e 
no Color 64, a mantissa é representada em 4 bytes (32 bits). 

O valor não se altera se a vírgula for deslocada para a direita 
e se o expoente for ajustado convenientemente. Assim, se na 
representação do CP-500 a vírgula for deslocada de 24 posi- 
ções, teremos: 0,Ixxx..xx * 2" = Ixxx..xx, * 20-24, 

Esta identidade mostra que podemos raciocinar com a 
mantissa como um valor fracionário e também como um nú- 
mero inteiro, expresso na base 2. O valor inteiro máximo que 
pode ser representado em 24 bits é 16.777.215. Enquanto 
em 32 bits, o maior valor inteiro é 4.294.967.295. 

Se estivéssemos acostumados a raciocinar com a base 2, as 
informações acima seriam suficientes. Como nossos padrões 
de comparação são todos referidos à base decimal, as informa- 
ções na base 2 serão convertidas para a base 10. 


ALGARISMOS SIGNIFICATIVOS 
E ORDEM DE GRANDEZA 


Nos 24 bits reservados para a mantissa, no CP-500, pode- 
mos representar um número inteiro compreendido entre zero e 
16.777.215. Portanto, 24 algarismos da base 2 são equivalentes 
a oito algarismos decimais, pois são oito os algarismos decimais 
do valor máximo. Como os algarismos decimais significativos 
somente são disponíveis para valores menores ou iguais a 
16.777.215, contamos com um máximo confiável de sete al- 
garismos decimais significativos. 

Procedendo de maneira análoga com os 32 bits empregados 
pelo TRS-80 Color e Color 64, concluímos pela possibilidade 
de representar um valor inteiro compreendido entre zero e 
4.294.967.295. 

Os 32 bits são equivalentes, portanto, a dez algarismos deci- 
mais significativos. Como esse número somente se aplica a va- 
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lores inferiores ao máximo especificado, contaremos, efetiva- 
mente, com o máximo confiável de nove algarismos decimais 
significativos. O número de algarismos na base decimal equiva- 
lente a um número qualquer de bits pode ser mais elegante- 
mente determinado através da igualdade: 10X = 20, Aplicando 
logaritmo na base 10, temos: x = log,020 =N *log,92. 

Sabendo que o logaritmo de dois na base 10 é, aproximada- 
mente, igual a 0,3010, para n= 24 corresponde x= 7,2240 e 
para n= 32 corresponde x= 9,6320. As partes inteiras dos valo- 
res de x apresentados representam o número confiável de algaris- 
mos decimais significativos com os quais se pode trabalhar. A 
parte fracionária não-nula indica que poderemos, em verdade, 
contar com um pouco mais do que os números citados. Portanto, 
até oito algarismos decimais significativos no CP-500 e até dez 
algarismos decimais significativos no TRS-Color e no Color 64. 
Mas este algarismo adicional somente estaria disponível para 
valores inferiores aos valores já especificados. 

A ordem de grandeza do valor é determinada consultando- 
se a característica. Como a representação é a mesma tanto para 
o CP-500 como o TRS-Color e Color 64, fazemos um trata- 
mento único. O valor máximo 255, da característica, corres- 
ponde ao expoente efetivo +127 da base 2. Podemos, então, 
estabelecer que 109 = 2!?7. Aplicando logaritmo na base 10 a 
ambos os membros, temos que g = 127 * log;92, donde o valor 
de g = 38,227 nos informa que 1,0 *2!27 = 1,0 * 1038. 

Por raciocínio análogo, para a característica zero, que cor- 
responde ao expoente efetivo mínimo —128, podemos estabe- 
Jecer que 109 = 2"'28 donde g = 38,528. 

Portanto, o BASIC permite a representação de múmeros 
reais que estejam compreendidos entre: -10 * 10**8 a 
—1.0 * 10"** centre +1.0 * 108 à +1.0 * 10+38, 





APLICAÇÃO PRÁTICA 





Os exemplos especiais apresentados a seguir foram selecio- 
nados para ilustrar alguns aspectos importantes do problema 
da precisão. No primeiro deles, a fórmula que permite a deter- 
minação do dia da semana de uma data qualquer do calendário 
gregoriano (conhecida como Congruência de Zeller) pode ser 
escrita como: 


£=(INT(2,6M-0,2) + D+A-2S + 
+ INT(A/4) + INT(A/4)) MODULO 7 (1) 


onde INT indica que deverá ser considerado apenas o maior 
inteiro contido no valor numérico da expressão entre parên- 
teses que se segue, MÓDULO 7 significa que o resto da divisão 
por 7, da expressão entre colchetes, deverá ser atribuído à va- 
riável f. Os dias da semana se associam ao valor de f, segundo a 
seguinte sequência: 


f = O Domingo f = 4 Quinta-feira 
f = | Segundafeira f = 5 Sexta-feira 
f = 2 Terça-feira f = 6 Sábado 

f = 


3 Quarta-feira 


Os parâmetros a serem considerados na expressão entre col- 
chetes são: A — dezena constituída pelos algarismos das deze- 
nas e das unidades do ano, por exemplo, À = 83 para o ano 
1983; S — dezena constituída pelos algarismos do milhar e das 
centenas, por exemplo, S = 19 para o ano de 1983; D — dia 
do mês; M — mês codificado da seguinte maneira: 


1 para Março, 
2 M = 10 para Dezembro. 


2 para Abril, 


M 
M 
M = 3 para Maio, 


Os meses de janeiro e fevereiro devem ser considerados co- 
mo 11 e 12, respectivamente, mas do ano anterior. Assim, se 
; rp determinar o dia da semana correspondente ao dia 1 

e outubro de 1983, os valores a serem considerados na fórmu- 
lasão:D=1,M=8,S=19e A=g83.Parao dia 1 de janeiro de 
1900, os valores a serem considerados são: D=1,M=11, 
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S=18e A=99, já que deve ser considerado o ano anterior a, 
1900, isto é. 1899. 

No caso do mês de fevereiro, para o qual M = 12, esses 
erros são ampliados de maneira a comprometer completamente 
o resultado final. A avaliação da expressão para M = 12 forne- 
cerá o valor 30 para K1, tanto usando o BASIC dos micros 
TRS-Color, Color 64, como do CP-500. 

Esta fórmula exige a exatidão do resultado, não admitindo 
erro de espécie alguma. Por isso, se ela tiver que ser avaliada 
computacionalmente, usando-se a linguagem BASIC, deverá 
ser tomado um cuidado muito especial na codificação da 
expressão. De fato, a subexpressão INT (2,6 * M — 0,2) não 
deverá ser codificada como: 


KlL = INT( 2.6 *M - 0.2) (2) 


Já foi visto que o valor 0.2 não pode ser representado de 
maneira exata em BASIC (ver artigo “O Erro de Truncamento 
em BASIC”, MS 24, set/83). 

O valor 2.6 também, quando convertido para a base 2, se 
transforma num racional, representado por 10.1001, onde o 
traço acima dos algarismos 1001 indica que eles se repetem in- 
definidamente. Portanto, na expressão anterior, tanto 2.6 co- 
mo 0.2 têm representações internas em BASIC com erro de 
truncamento. 


K2 = INT ( (26 *M - 2)/10) (3) 


Mas esta expressão pode ser codificada na subexpressão a 
seguir, onde o problema do erro de truncamento foi completa- 
mente evitado: 

Nos mesmos microcomputadores, para M = 12 o resultado 
fornecido para K2 foi 31, mostrando assim que a fórmula (2) 
conduz a resultado errôneo para o mês de fevereiro. Para os 
demais meses, ambas as fórmulas fornecem o mesmo resul- 
tado. 

A expressão entre colchetes, na fórmula (1), pode ser nega- 
tiva. Neste caso, o resto da divisão também será negativo. A 
esse valor negativo deverá ser adicionado o valor 7, para se 
obter o dia da semana correto. É o caso do dia 1 de janeiro de 
1903,em que D=1,M=11,S=19€e A=2, Para estes valores, 
a expressão entre colchetes tem valor —3, o mesmo acontecen- 
do com o resto da divisão por sete. Portanto, o dia da semana a 
ser considerado para esta data é f= 4, isto é, quinta-feira. 

Além de 2.6 e 0.2, existem infinitos valores que também 
são penalizados na linguagem BASIC. Por exemplo, o leitor po- 
derá notar que dentre os seguintes valores decimais: 0,1; 0,2; 
0,3; 0,4; 0,5; 0,6; 0,7; 0,8 e 0,9, apenas o valor 0,5 tem repre- 
sentação exata. Todos os demais, quando convertidos para a 
base 2, se transformam em números racionais, sem representa- 
ção exata em BASIC. 





SEGUNDO EXEMPLO 





Existem algumas fórmulas que podem ser avaliadas manual- 
mente sem problema algum, mas que computacionalmente 
sua avaliação se torna inviável. É o caso, por exemplo, da de- 
terminação do valor de 1 através da fórmula de Leibnitz 
(1674). 


9*11*13 


+ resmas emma dh detonados ) (4) 

13*15*17 

Por se tratar de um irracional, o valor de m nunca poderá 
ser determinado de maneira exata, mesmo considerando in- 
finitas parcelas. A determinação manual de um alor aproxima- 
do de Tm seria trivial, mas trabalhosa, pois, considerando duas 
centenas de parcelas, chegamos a uma aproximação aceitável 
do valor. 


A avaliação da expressão (4) foi feita para diferentes com- , 


putadores. Para mostrar que os grandes computadores também : 
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> 
e, 


CÁLCULOS PRECISOS EM BASIC 


a ia a ini 


apresentam o mesmo problema, a avaliação foi feita num IBM 
4341, com sistema operacional OS/MVS. Neste computador, 
usando a linguagem FORTRAN, com precisão simples, a me- 
lhor aproximação encontrada foi 3,14153481. Surpreendente- 
mente, este valor é bastante abaixo de um mais exato conheci- 
do: 3,14159 26535 89793 23846. 

Na linguagem FORTRAN deste computador, os valores 
reais de precisão simples são representados na base 16, ao con- 
trário da base 2 usada no BASIC. De maneira análoga, o valor 
real é, portanto, colocado na forma: O Xyyyyyy yyyy “16”, 
onde X é um algarismo da base 16 diferente de zero e yyy... 
são algarismos quaisquer da base 16. A mantissa é represen- 
tada em 24 bits (3 bytes). A característica, que é o valor re- 
sultante da soma de 64 ao expoente efetivo de 16, é armazena- 
da em 7 bits. O sinal ocupa um bit especial. 

Em BASIC, na aritmética de precisão simples do CP-S00, a 
mesma avaliação da expressão (4) conduziu a uma melhor 
aproximação. O valor encontrado para 1 foi 3,14158. 


No caso do computador IBM, o resultado final aproximado 
foi obtido após consideração das primeiras 64 parcelas da ex- 
pressão. Não há razão para a consideração de um maior núme- 
ro de parcelas, pois o resultado final permanece estacionário. 
Já no caso do CP-500, o resultado final, também estacionário, 
foi obtido com um número um pouco maior de parcelas, 
aproximadamente 90. 

Esta mesma avaliação sendo feita no TRS-Color ou Color 
64, por contar com maior número de algarismos significati- 
vos que o CP-500, resultou em melhor aproximação. Ao con- 
siderar 90 parcelas, o resultado foi 3,1415 7731, valor um pou- 
co abaixo do correspondente obtido no CP-500. Levando em 
consideração cem parcelas, o valor encontrado foi 3,1415 
8022. 


No caso do TRS-Color ou Color 64, um maior número de 
parcelas poderá ser considerado, com a obtenção de uma me- 
lhor aproximação. Mas neste caso também, a partir de um cer- 
to valor, a consideração de parcelas adicionais não surtirá efei- 
to algum. A possibilidade de uso da aritmética de precisão du- 
pla, possível nos computadores IBM 4341 e no microcompu- 
tador CP-S00, somente adia o instante em que a aproximação 
permanece estacionária. 

Em todos estes casos, o instante em que o resultado perma- 
nece estacionário é aquele no qual o valor da parcela a ser con- 
siderada passa a ser menor do que o erro de truncamento. O 
valor de 7, portanto, com um maior número de algarismos 
significativos do que a melhor aproximação apresentada, não 
poderá ser obtido pelos computadores (mesmo nos macrocom- 
putadores). Esta avaliação somente poderá ser feita manual- 
mente, com lápis, papel e muita paciência. 
agi a o ie q SS ET 

TERCEIRO EXEMPLO 
ESSA) nd 1 ci si 

Os dois exemplos anteriores apresentam uma visão pessi- 
mista sobre o problema da precisão. É preciso levar em conta, 
entretanto, que estes exemplos foram propositadamente es- 
colhidos, por utilizarem valores que são penalizados na repre- 
sentação computacional. Mas, consideremos agora um exem- 
plo onde é apresentada a visão otimista. 

Dentre os valores inteiros, todos aqueles menores que 
16.777.215 (CP-500) ou 4.294.967.295 (TRS-Color e Color 
64) têm representação interna precisa em BASIC. Todos os 
inteiros acima deste máximo, em geral, seriam penalizados pelo 
erro de truncamento, com alguns algarismos significativos sen- 
do ignorados. Entretanto, existe uma infinidade dentre esses 
valores que não são penalizados e podem ser representados 
de maneira exata. 

Por exemplo, todos os valores múltiplos de 256, quando 
convertidos para a base 2, apresentam os oito algarismos 
(bits) menos significativos iguais a zero. Na representação com- 
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putacional, esses bits poderiam ser ignorados, sem que houves- 
se perda de algarismos significativos. Já os múltiplos de 4096 
apresentam na base binária os 16 bits menos significativos 
iguais a Zero. 

Como pode ser visto, 256 e 4096 são potências exatas de 2. 
O primeiro valor corresponde a 2 elevado à oitava potência, en- 
quanto o segundo, à potência 12. Assim sendo, de modo geral 
todos os valores que são múltiplos de uma potência exata de 
2 são valores favorecidos na aritmética empregada pela lingua- 
gem BASIC. 

Um cálculo elementar em que estes valores privilegiados são 
empregados é a determinação do fatorial de um número n 
(produto dos números naturais de um até n). Os valores de fa- 
torial de 10 e acima dele são todos múltiplos de 256 e, portan- 
to, são favorecidos pelo BASIC. Usando o BASIC do CP-500, 
em precisão simples, foram obtidos os seguintes resultados: 


10! 3.62880 E+06 12! 4.79002 E +08 
1! 3.99168 E+07 | 13! 6.22702 E+09 


De uma maneira geral, podemos contar garantidamente no 
CP-500 apenas com sete algarismos decimais significativos. 
Mas, como se pode observar, o fatorial de 11 foi calculado cor- 
retamente, apesar de o resultado conter oito algarismos signi- 
ficativos. O fatorial de 12, apesar de ser um número privilegia- 
do por apresentar nove algarismos decimais significativos, já é 
um valor aproximado. 

No BASIC do TRS-Color e Color 64, podendo contar com 
maior número de algarismos significativos, os resultados apre- 
sentados foram um pouco melhores: 


H 
HH 


10! = 3628800 13! = 6.2270208 E+09 
11! = 39916800 14! = 8.71782912 E+l10 
12! = 479001600 


Neste microcomputador, o fatorial de 12 ainda é apresenta- 
do sem o uso da notação científica. O fatorial de 13, cujo va- 
lor correto é 6.227.020.800, apesar de conter 10 algarismos 
decimais significativos, ainda é calculado corretamente, contra- 
riando a regra geral que garante até nove algarismos. Valores 
acima de 13 já são apresentados de maneira aproximada e seu 
cálculo exato somente poderá ser feito manualmente, com lá- 
pis e papel. 

Bem, para concluir, gostaria de dizer que toda essa exposi- 
ção visou apenas a despertar a atenção do leitor para a precisão 
no cálculo computacional. Pelo fato de a precisão ser depen- 
dente dos valores numéricos considerados, se favorecidos ou 
penalizados pela representação escolhida pela linguagem BA- 
SIC, fica difícil, até quase impossível, estabelecer regras que 
sejam universalmente aplicáveis. 

Apenas como recomendação, o leitor deverá fugir sempre 
do problema do erro de truncamento se isso for possível, como 
no caso do primeiro exemplo. Na sua impossibilidade, tentar 
minimizar ao máximo o seu efeito, ou concluir pela inviabili- 
dade da solução computacional, como no segundo exemplo. 
E, após a obtenção dos resultados finais, somente considerar Os 
algarismos significativos com os quais garantidamente se pode- 
rá contar. 
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CURSOS DE APERFEIÇOAMENTO 


São mais de 140 apostilas com informações completas e sempre 
atualizadas. Tudo sobre os mais revolucionário CHIPS. E você 
recebe, além de uma sólida formação teórica, KITS elaborados 
para o seu desenvolvimento prático. Garanta agora o seu futuro 


CEDM-20 - KIT 

de Ferramentas. 
CEDM-78 - KIT 

Fonte de Alimentação 
Sv/1A. CEDM-35 KIT 
Placa Experimental 
CEDM-74 - KIT 

de Componentes. 
CEDM-80 o 
MICROCOMPUTADOR É 
Z80 ASSEMBLER. 


Este CURSO, especialmente programado, oferece os 

fundamentos de Linguagem de Programação que domina o universo 
dos microcomputadores. Dinâmico e abrangente, ensina desde o BASIC 
básico até o BASIC mais avançado, incluíndo noções básicas sobre 
Manipulação de Arquivos, Técnicas de Programação, Sistemas de 
Processamento de Dados, Teleprocessamento, Multiprogramação e 
Técnicas em Linguagem de Máquina, que proporcionam um grande 
conhecimento em toda a área de Processamento de Dados 


KIT CEDM ZBO0 

BASIC Científico. 

KIT CEDM 280 

BASIC Simples. 

Gabarito de Fluxograma 
E-4. KIT CEDM SOFTWARE 
Fitas Cassete com Programas. 





MAIS SUCESSO PARA VOCÊ! 


Comece uma nova fase na sua vida profissional. 
Os CURSOS CEDM levam até você o mais moderno ensino 
técnico programado e desenvolvido no País. 


Métodos novos e inéditos de ensino garantem um aprendizado 

prático muito melhor. Em cada nova lição, apostilas ilustradas 

ensinam tudo sobre Amplificadores, Caixas Acústicas, Equalizadores, 
Toca-discos, Sintonizadores AM/FM, Gravadores e Toca-Fitas, Cápsulas 
e Fonocaptadores, Microfones, Sonorização, Instrumentação de Medidas 
em Audio, Técnicas de Gravação e também de Reparação em Áudio 


CEDM-1 - KIT de Ferramentas. CEDM-2 - KIT Fonte de Alimentação 
+ 15-15/1A. CEDM-3 - KIT Placa Experimental 

CEDM-4 - KIT de Componentes. CEDM-S - KIT Pré-amplificador 
Estéreo. CEDM-S - KIT Amplificador Estéreo 40w. 





Você mesmo pode desenvolver um ritmo próprio de estudo. A lin- 
guagem simplificada dos CURSOS CEDM permite aprendizado fácil. E 
para esclarecer qualquer dúvida, o CEDM coloca à sua disposição uma 
equipe de professores sempre muito bem acessorada. Além disso, você 
recebe KITS preparados para os seus exercícios práticos. 

Ágil, moderno e perfeitamente adequado à nossa realidade, os CUR- 
SOS CEDM por correspondência garantem condições ideais para o seu 
aperfeiçoamento profissional. 


ERES GRÁTIS E 


Você também pode ganhar um MICROCOMPUTADOR. 
Telefone (0432) 23-9674 ou coloque hoje 
mesmo no Correio o cupom CEDM. 
Em poucos dias você recebe nossos catálogos de apresentação. 









CEDM 


Avenida São Paulo, 718 - Fone (0432) 23-9674. 
CAIXA POSTAL 1642 - CEP 86100 - Londrina - PR 
CURSO DE APERFEIÇOAMENTO POR CORRESPONDÊNCIA 


Solicito o mais rápido possível informações sem compromisso sobre o 
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Ler, entender e escrever programas, tanto 
em BASIC quanto em ASSEMBLER, são ati- 
vidades bastantes recompensadoras quando 
quem as pratica dispõe de conhecimentos e 
instrumentação adequadas. 

MICRO SISTEMAS sempre se preocupou com 
o leitor iniciante, e aqueles que sempre nos 
prestigiaram ganham, a partir desse número, 
um presentão: um sistema utilitário capaz de 
fazer maravilhas e, ainda por cima, comen- 
tado passo a passo. Os limites de sua utili- 
zação são os limites alcançados pela própria 
imaginação do usuário. 

Então, prepare o micro e mãos à obra. 





s programas para os micros 
com lógica Sinclair têm se 
tornado, a cada dia, mais so- 


fisticados. Uma boa olhada 
nos últimos números de MICRO SIS- 
TEMAS irá comprovar esse fato. 

Saber programar ou conhecer uma in- 
ninidade de linguagens não é suficiente 
para escrever bons programas. É preciso 
antes, ser usuário do equipamento “em 
o qual se quer criar um sistema. Sob es- 
se aspecto, a linha Sinclair é a que tem 
apresentado os melhores resultados, da- 
da a grande quantidade de usuários e a 
excelente capacidade de diálogo entre 
seus vários segmentos. 

Mas nem tudo é um “mar de rosas”. 
A literatura ainda é escassa e não raro 
enganosa. Listas de instruções do As- 
sembler Z80 são vendidas como “saiba 
tudo sobre a linguagem de máquina do 
seu micro”, numa nítida exploração da 
boa fé do consumidor. Programas “fan- 
tásticos”, vendidos a preços fabulosos e 
que podem ser encontrados nas revistas 
de computadores, têm causado uma re- 
tração na produção independente de 
software. Ninguém quer se arriscar a um 
embate cujo audio todos já sabemos, 
ou melhor, ninguém está disposto a en- 
cher os bolsos alheios e ver frustrada a 

Por outro lado, os fabricantes não di- 
vulgam informações técnicas na mesma 
velocidade e proporção com as quais 
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prometem novos e maravilhosos equipa- 
mentos (cada um mais desconhecido e 
misterioso que o outro). 

No final, o usuário acaba perdido e, 
se a sua força de vontade não for gran- 
de, ele acaba desistindo de tudo, vende 
o micro e compra um videogame, pois, 
com certeza, não terá tantos aborreci- 
mentos e será decididamente muito mais 
divertido. 

Porém, para aqueles que acreditam 
ser possível desenvolver um bom traba- 
lho com poucos recursos, MICRO SIS- 
TEMAS inicia nesse número o projeto 
MICRO BUG. Trata-se de um sistema 
utilitário que será desenvolvido, em lin- 
guagem de máquina, passo a passo com 
o leitor, esclarecendo e discutindo as 
formas de programação utilizadas e o 
conhecimento técnico envolvido no pro- 
jeto. 
dá O MICRO BUG, como produto final, 
se traduzirá num programa para manipu- 
lar os dados e informações contidos na 
memória do micro. Com ele será possí- 
vel ler, alterar, interpretar, gravar, co- 
piar, criar, imprimir, compilar, reescre- 
ver, analisar e compactar programas, 
tanto em Basic quanto em Assembler. 

No entanto, antes de nos aventurar- 
mos nessa jornada audaciosa, será preci- 
so discutir alguns conhecimentos básicos 
e até mesmo alguns “hábitos saudáveis”, 
que serão indispensáveis no decorrer do 

projeto. 


O MANUAL DO EQUIPAMENTO 


Apesar de conter poucas informações, 
ser não raro incompreensível e, além 
disso, mal traduzido, o manual que 
acompanha o equipamento é, ainda as- 
sim, O primeiro grande elo entre o equi- 
pamento e o usuário e nunca deve ser 


"esquecido em cima de uma estante ou 


dentro de uma gaveta. Ele deve ser lido 
infinitas vezes, pois a cada leitura certa- 
mente uma dúvida se dissipa. Em espe- 
cial os últimos capítulos, sobre a organi- 
zação do sistema, devem ser literalmente 
devorados e entendidos, caso contrário 
todo nosso esforço terá sido em vão. 

A maior parte dos equipamentos da 
linha Sinclair (NE Z8000, TK82€, 
TK83, CP 200 e TK85) possuem ma- 
nuais compatíveis entre si, ou seja, tra- 
duzidos do original do ZX81. Todos os 
exercícios e exemplos, bem como a dis- 
tribuição dos capítulos são exatamente 
os mesmos, não importando sobre qual 
equipamento nos referimos. A figura 1 
apresenta uma tabela de compatibilida- 
de entre a nomenclatura das variáveis do 
sistema adotada pelos fabricantes. Esses 
nomes são apenas mnemônicos e a fun- 
ção de cada endereço está explicada cla- 
ramente no manual; portanto, uma boa 
leitura desse capítulo (VARIÁVEIS DO 
SISTEMA) deve ser uma das primeiras 
providências a ser tomada. 
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Com relação a livros, não é aconse- 
lhável gastar fortunas neles, pois a maio- 
ria não contém nada além de listagens 
das instruções do Z80; porém se o leitor 
desejar aprofundar-se no Assembler, o 
único livro digno de recomendação é o 
Z80 ASSEMBLY LANGUAGE PRO- 
GRAMMING (Lance A. Leventhal — Os- 
borne/McGraw Hill). Trata-se de um ma- 
nual técnico, porém completo e bastan- 





VARIÁVEIS DO SISTEMA 
tabela de compatibilidade de nomenclatura 


sisttiEs 


NE Z5000 CP 200 IK 52€ 






endereço endereço 





decimal hexadecimal 


16354 upa ERR NR ERRO- 1 CODR 
16385 “oo FLAGS FLAGS BAND 






















































16386/87 umm2/03 ERR SP RE TGSB ENSP 
16388/89 uMou 05 RAMTOP MEMTOP RIP te claro, mesmo sendo em Inglês. 
16390 umas MODE MODO MODO 
16391/92 4M07 /08 PPC CPB EXPANSÕES DE MEMÓRIA 
16393 uma VERSN VERSÃO VERSN a à 
16394/95 “MMA /OB E PPC NUML] LPC Ainda há muita confusão no mercado 
16396/97 “Mc /dD D FILE MAPTELA DF ILE ars do cao a ee ati a fato 
16398/99 “ODE / OF DF CC POSPR encontrada. Há foi dito (O SISTEMA 
164 00/01 uQp/11 VARS VARS VARS OPERACIONAL DO ZX81, MS n925) 
16402/03 4Q12/13 DEST DEST DEST que a quantidade máxima de RAM ado- 
16404/05 PM NINÃE E LINE LIDIGIT ELINE tada pelo projeto da SINCLAIR é de 
16406/07 4016/17 CH ADD PROX-CAR ENCAR 16 K. Isso não significa que seja impos- 
16408/09 4018/19 X PIR XPTR ENSX sível implementar mais do que 16 K, po- 
164 10/11 4QIA/1B STKBOT Tou quai 16 - ram PS 
SIRCOR PALEUA trar sérios problemas operacionais pela 
16412/13 sQIC/1D STKEND STKF IM PILFIM frente. 
164 14 4QIE BERG REGIB CALREG O primeiro grande problema diz res- 
16415/16 wir /20 MEM MEM MEM peito à efetiva quantidade de memória 
16417 4021 n usado n usado n usado que poderá ser utilizada. Para ficar bem 
16415 um? DF SZ DF-SZ DFSZ clara a explicação, acompanhe-a pela fi- 
16419/20 4023/24 S TOP PROGTOP LTOP EA eat is pçs pes ag éo 
m r 
“peida cd LAST K ULTIMAT UL TK uma UCP de 8 bits e eeideroçanipato do 
2 bytes, em grupos de 8 K. 
16424 ums MARGIN MARGEN HARG O primeiro grupo é a ROM conten- 
16425/26 uP29/2A NXTLIN PRXLIN PXLN do o Sistema Operacional. Nesse local 
16427/28 4M2B/2C OLDPPC LINCONT VCPB jamais poderá ser colocada a RAM dispo- 
16429 420 FLAGX FLAGX BANDX nível, pois nesse caso o micro simples- 
16430/31 uM2E /2F STRLEN COMSTR LENCA mente não funcionaria. No grupo 2 há 
16432/33 4030/31 T ADDR ENDSTX SXEN um espaço vazio onde não existe absolu- 
16434/35 4032/33 SEED tamento, tiaia 44 qa ig 
ed SE Sistema Operacional. É possível colocar 
16436/37 4034/35 FRAMES FRAMES QUAD nesse local a memória RAM, porém ela 
16438 4036 COORDS COORDX CORDX estará fora do sistema e somente servi- 
16439 4037 COORDY CORDY rá para rotinas em linguagem de máqui- 
16440 4038 PR CC LPBYTE PR-CC na ou arquivo de dados operado pelas 
16441 4039 S POSN COLUNA COLPR instruções POKE e PEEK. 
16442 4M3A K LINHA LINPR Os grupos 3 e 4 compreendem a me- 
16443 4038 CDFLAG FLAGCD BANCO mória RAM normal de 16 K e é nesse es- 
16444 a 16476 SIC a 4OSC PRBUF F BUF IMP PRBUFF poço que OREIDO 8 raei Rara aan 
16477 a 16506 40SD a 4M7A MEMBOT Sídoo É po RM O aqua 
' MEMBOT MEMBO vídeo, as variáveis do programa, o stack 
16507/08 4078/70 n usado n usado n usado do Z80 e as rotinas Assembler. Os gru- 








pos restantes (5, 6, 7 e 8) não estão li- 
vres para utilização e se neles for colo- 
cada a memória RAM, ela somente po- 
e dateoriaein- derá ser utilizada para armazenar va- 
ões técnicas de que iremos pre- riáveis. Dessa forma, equipamentos com 
32K, 48K ou mesmo “64K” de RAM 


Figura 1! — Uma tabela de compatibilidade de variáveis que deve ser mantida sempre à mão 


Ainda a respeito de leituras, alguns te, pois contêm boa 
artigos publicados em MICRO SISTE- fo 
MAS merecem ser relidos atenciosamen-  cisar. (Veja na bibliografia). 





(1) 
1 RroM |2 AM 4 
SISTEMA 
OPERACIONAL 
Dodo e000 “ooo 
Figura 2 — A distribuição do endereçamento da Z80 e as reais áreas de aproveitamento da memória RAM > 
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SOLUÇÃO NÃO É PROBLEMA & 


não importa o tamanho de seu problema, 


nós temos a solução na medida exata! 


€ LINGUAGEM BASIC 

e 16K DE MEMÓRIA 

e VELOCIDADE DE 
TRANSFERÊNCIA 14 VE- 
ZES MAIS RÁPIDA 


MICRO: 
LINGUAGENS COBOL, 
BASIC E FORTRAN 
64 K DE MEMÓRIA 


DUAS UNIDADES DE. 


DISCO 


ACESSÓRIOS 


SOFTWARE € MESAS € DIS 
QUETES * ARQUIVOS € 
FORMULÁRIOS CONT 
NUOS € ESTABILIZADORES 
DE TENSÃO €* UNIDADES 


DE DISCO FLEXÍVEL 9 ETC. 


MODULAR 

LINGUAGEM BASIC 

48 K DE MEMÓRIA 
COMPATÍVEL COM 
SOFTWARE DO CP-500 


IMPRESSORA: 

e VELOCIDADE 130 CPS 
e MATRIZ7x9 

e 132COLUNAS 

e ORIGINAL +5 CÓPIAS 


APROVEITE! 


PROMOÇÕES ESPECIAIS € 
FINANCIAMENTO €* LEA- 
SING € CONSÓRCIO € CAR- 


TÕES DE CRÉDITO: CREDI- 


CARD, NACIONAL, ELLO. 


LINGUAGEM BASIC 

48 K DE MEMÓRIA 

ATÉ 4 DRIVES 

SAIDA PARALELA SE- 
RIAL 


em —— ——e———e mem am a 


VELOCIDADE 200 CPS 
MATRIZ7x9 
INTERFACE: 
PARALELA, 

SERIAL 


VELOCIDADE 100 CPS 
MATRIZ 9x7 
INTERFACE: 
PARALELA 

SERIAL 


TRAÇADOR 
GRÁFICO 


e BPENAS 
e ÁREA DE TRAÇADO 


10 x 15 POL. 
€ INTERFACE RS-232 


Filcres Importação e Representações Ltda. 
Rua Aurora, 165 — CEP 01209 — São Paulo — SP 
Telex 1131298 FILG BR — PBX 223-7388 — Ramais 2, 4, 
12, 18, 19 — Diretos: 223-1446, 222-3458, 220-5794 e 
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MICRO BUG 





somente terão disponíveis 16K para pro- 
gramas BASIC ou Assembler. 

De fato, os grupos 5, 6,7 e 8 JA- 
MAIS poderão conter programas em 
BASIC ou Assembler o simples fato 
de que nessa região É não funciona- 
rão. A explicação técnica para esse fato 
será dada no tópico O ASSEMBLER 
DO SINCLAIR. 





ENDEREÇO E CONTEÚDO 





Todo usuário que pretende avançar 
um pouco mais na programação deve 
dominar plenamente os conceitos de en- 
dereço e conteúdo, pois são eles os fun- 
damentos da funcionalidade do compu- 
tador. 

Entende-se por endereço um local da 
memória capaz de reter uma certa quan- 
tidade de bits (ou a. zeros e uns). Co- 
mo cada grupo de 8 bits configura um 
byte, então um endereço é um local on- 
de pode ser armazenado um byte e, des- 
sa forma, um determinado endereço po- 
de ter o seu conteúdo na forma de um 
valor no intervalo entre O e 255. 

Os bytes, nesse intervalo, podem sig- 
nificar uma série de coisas, dependendo 
do contexto em que forem lidos. Eles 
podem ser apenas um valor de referên- 
cia, um número de linha de programa 
BASIC, uma letra a ser impressa, um 
conjunto de flags ou uma instrução As- 
sembler, ou ainda parte de um valor nu- 
mérico qualquer. 

Saber o que cada byte está represen- 
tando em um dado momento, ou em um 
determinado local da memória, nada 
mais é do que entender melhor o fun- 
cionamento da máquina. 


binário 


DOMPPOD1 POMMDOT trovg 
DODOODO! DODDPDIA ya 


00000111 11000000 7 192 
DIDODDDO 1000GHIA 64 134 


11111111 11111111 


Figura 3 





NÚMEROS E BASES NUMÉRICAS 





Quem programa apenas em BASIC 
não precisa se preocupar com bases nu- 
méricas, porém o usuário que busca um 
relacionamento mais íntimo com o com- 
putador certamente terá que se enten- 
der com pelo menos mais duas bases. O 
binário não requer um conhecimento 
profundo, visto que o próprio compu- 
tador se encarrega das conversões envol- 
vidas, porém é necessário ver algumas 
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decimal 


255 255 


características dessa base, e para isso a 
própria MICRO SISTEMAS já publicou 
excelentes artigos. 

Para aqueles que querem se aprofun- 
dar no Assembler, então a base a ser uti- 
lizada deve ser a hexadecimal, pois pro- 
gramar com números em hexadecimal é 
sensivelmente mais fácil do que em de- 
cimal. 

Como já vimos, um byte represen- 
ta um valor entre O e 255. Vejamos en- 
tão alguns desses valores nas três bases 
envolvidas: 


binário decimal hexadecimal 
DODDADHA (1) [0] 
DODODOD1 1 01 
DODDODIA 2 p2 
DODOIDIA 10 DA 
10101111 175 AF 
11111111 255 FF 


Como podemos notar, com 8 bits 
não é possível representar um valor 
maior do que 255 porque não há mais 
“casas” para serem ocupadas, e se obri- 
garmos o Z80 a somar 1 ao valor 255,0 
resultado será zero e todo o processo se 
repetirá. 

Para a manipulação de valores maio- 
res será preciso lançar mão de 2 bytes, e 
dessa forma a faixa de valores ficará 
bem mais extensa. Veja o exemplo a se- 
guir: 


PODODDD! MONPODDO = 256 = IM 


podemos, e devemos, dividir também os 
números decimais pelo módulo 256 e o 
resultado será o apresentado na figura 3. 


hexadecimal 


01 01 
pm q? 
07 cú 
um 82 
FF FF 





Novamente, porém, chegamos ao li- 
mite de valores e dessa vez o limite é pra 
valer. Se prestarmos atenção ao número 
65535, veremos que se considerarmos 
O zero como um valor, então com dois 
bytes poderemos representar 65.536 va- 
lores. Dividindo essa quantidade por 
1.024, que é o módulo KILO BYTE, o 
resultado será 64K. Isso explica o fato 
do Z80 só permitir o endereçamento 
de 64K de memória pois em toda ope- 
ração com endereços ela usa sempre dois 
bytes. e 


Era 
só O que 
faltava... . 


Agora, com as interfaces 
TL 85e TL 300, você já pode 
ligar o seu micro TK 85, TK 83 
e CP 300 em uma impressora. 





TL 85 


Interface que complementa 
seu TK 85 ou TK 83, ampliando largamente 
a aplicação do mesmo. 

* aciona qualquer impressora ou máquina 
de escrever eletrônica, com comunica- 
ção paralela Centronics; 

* aceita todos os comandos relacionados 
com impressora (Copy, Llist, Lprint); 

* gera maiúsculas, minúsculas, acentos 
e controles do ASCII, diretamente do te- 
clado; 

* permite a conexão de outras expansões. 
















Versão com Editor: Facílimo de usar; orien- 
tado para língua portuguesa; gravado em 
EPROM; marginação automática; separa- 
ção silábica e outros recursos. 





. 


TL 300 


Acionada pelos comandos de impres- 
são, a interface TL 300 possibilita a ligação 
do CP 300 a qualquer impressora ou má- 
quina de escrever eletrônica, com comuni- 
cação paralela Centronics. Permite, ainda, 
a expansão do sistema, oferecendo condi- 
ções para que o micro aceite outros perifé- 
ricos. 
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Av. São Pedro, 1062 - Fone (0512) 42-8549 
90000 Porto Alegre - RS 


Distribuidores 
São Paulo: Pró-Controle Com. e Controle 
Ltda. - Fone (0192) 32-7364 - Campinas 
Goiás e Distrito Federal: 
New Computadores Comércio e 
Representações Ltda. 
Fone (061) 274-5060 - Brasília 
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EDITOR BASIC 





COMPILADOR 
ASSEMBLER 


MICRO BUG 


MO SGM 
modulo operacional sitema gerenciador de 
modulos 


MONITOR ASSEMBLER DISASSEMBLER 
A MBASIC 


Figura 4 — O topo da RAM e o posicionamento do Micro Bug. O RAMTOP foi alterado para receber as rotinas e manté-las fora do sistema, 


protegidas até mesmo do NEW 


A facilidade da base hexadecimal está 
no fato de que com ela não é preciso 
fazer contas para representar um núme- 
ro de dois bytes, ou seja, enquanto 
1984, em decimal, é igual a 7*256+192, 
ou melhor, INT (1984/256) seguido de 
1984-INT(1984/256)*256, em hexade- 
cimal o mesmo número 07C0 é igual a 
07 e CO. 





O ASSEMBLER DO SINCLAIR 





A programação em linguagem de má- 
quina é cheia de nuances e sutilezas, que 
variam de equipamento para equipamen- 
to. Conhecer a linguagem Assembler não 
credencia ninguém a escrever programas 
em equipamentos com lógica Sinclair, 
ou mesmo em qualquer outro equipa- 
mento, visto que é fundamental conhe- 
cer a fundo a sistemática da máquina em 
questão. Na realidade, o Assembler não 
é uma linguagem para ser aprendida e 
sim entendida. Qualquer pessoa capaz 
de somar e subtrair pode escrever pro- 
gramas em Assembler, bastando para is- 
so muita paciência, pois é a única coisa 
exigida do programador. 

De resto, é suficiente uma lista das 
instruções disponíveis, o que, diga-se de 
passagem, consta do manual do equipa- 
mento. 

Vejamos então algumas particularida- 
des important íssimas. O Assembler pos- 
sui por volta de 694 instruções oficiais 
e mais umas 438 não divulgadas pelo fa- 
bricante (ver artigo AS INSTRUÇÕES 
SECRETAS DO Z80, Jorge Mendes — 
MS 25) porém nem todas elas poderão 
ser utilizadas. O fato da UCP, nos mi- 
cros Sinclair, ser obrigada a fazer todo o 
trabalho obrigou os programadores a 
criar rotinas complexas e a utilizar de 
forma bastante criativa todas as poten- 
cialidades do Z80. O preço pago por isso 


foi uma redução significativa das instru- 


ções que realmente podem ser utiliza- 
das em programas criados pelos usuá- 
rios. 
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Boa ou má solução, o fato é que o 
Assembler do Sinclair tornou-se bastan- 
te restrito e impôs ao usuário a necessi- 
dade de uma boa dose de criatividade 
para contornar os obstáculos. Por outro 
lado, ele tornou-se uma linguagem fa- 
cílima de ser entendida. 


Dois importantes grupos de instru- 
ções, as instruções de endereçamento in- 
dexado IX e IY, não podem ser utiliza- 
dos quando um programa Assembler 
opera no modo SLÓW, pois o sistema de 
impressão no vídeo os utiliza para gerar 
e manter a imagem na tela da televisão. 
Os registradores alternativos também 
merecem um cuidado muito especial 
pois a sua utilização pode provocar a 
perda de controle de todo o sistema. 


Outro ponto importante é que o 
Z80 nunca poderá estar em modo de 
execução ou procura de instrução 
(FETCH) acima do endereço 32.767, 
pois esta é a característica da interrup- 
ção geradora do vídeo. Na realidade, o 
que ocorre é que, para formar uma ima- 
gem na tela de vídeo, o sistema obtém o 
valor de D-FILE (16396/97), “seta” o 
bit 15 (Al5=1) e executa operações de 
“refresh” até formar uma imagem. Des- 
sa forma, se a máquina for acidental- 
mente colocada para execução de uma 
instrução Assembler ou linha de progra- 
ma BASIC acima dos 16K de RAM, ha- 
verá perda total de controle do sistema. 





O MICRO BUG 





O MICRO BUG formará um sistema 
modular de manipulação da memória do 
micro. Ele será composto por um geren- 
ciador (SGM) e por módulos especrífi- 
cos. A figura 4 apresenta o esquema de 
funcionamento de todo o sistema. 

O equipamento padrão para o funcio- 
namento do MICRO BUG será um mi- 
cro com expansão de 16K de RAM e o 
sistema ocupará o espaço no topo da 
memória (RAMTOP). O SGM manterá, 
nessa área, as principais rotinas funcio- 
nais bem como os comandos de grava- 
ção e leitura dos módulos. Além disso, 
possuirá alguns comandos específicos 
que o tornarão, sozinho, um potente 
monitor Assembler. 

Toda a estrutura funcional do MI- 
CRO BUG será apresentada e discutida e 
no final o usuário poderá, ele mesmo, 
construir o seu módulo operacional es- 
pecífico. 

É importante salientar que, dada a 
diversidade de formas com as quais os 
programas em Assembler se apresentam, 
esse trabalho servirá como padronização 
de todo o material que vier a ser publi- 
cado pela MICRO SISTEMAS. 





Este projeto vem sendo desenvolvido pela 
equipe do CPD de MICRO SISTEMAS, sob a 
coordenação de Renato Degiovani. 
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— “Z80A E ZX81, UMA PODEROSA 
COMBINAÇÃO” (Milton Cabreizo — 
MS nº 17) 


— “OK MICRO, VOCÊ VENCEU” (Rui 
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— “ESCONDENDO O JOGO NO TK 
82” (Ronaldo de Almeida Santos — 
MS nº 22) 
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Zx81” (Renato Degiovani — MS 
nº 25, 26 e 27) me 


E, 


em 


MICRO SISTEMAS, abril/84 


| ED ES st cs o o ca Em 
MEssosuntoi 





- =. e -— 
a ÉS É & & O DD a = ca 
a “ - emana 


se lançamento: Cr$ 341.000,00" 


IDADE. 
E CUIDEM. 








O microcomputador Ringo R-470 é, disparado, o melhor em sua categoria. E mais rápido na execução d 
pu  OISE e programas, oferece amplas possibili 
expansão e é o único micro totalmente projetado e desenvolvido no Brasil, aprovado pela SEI - Secretaria Especial de Informática. spin 


Um verdadeiro herói nacional. 


Você pode contar com ele para resolver problemas pessoais ou profissionais, ou simplesmente para se divertir, através de vários jogos disponíveis em 


cartuchos ou fitas. 


Aliás, cartucho é o que não falta para o Ringo. Ele é compatível com todos os programas do famoso Sinclair e possui equipamentos periféricos 


exclusivos que ampliam muito a sua capacidade. 


Compare o Ringo R-470 com os similares e comprove: nunca apareceu um micro pessoal tão profissional por estas redondezas. 


CARACTERISTICAS TÉCNICAS: 

* Linguagem Basic « códigos de máquina 7.40 

» É Kibytes ROM expandivel para 18 K Bytes 

* 16 KBytes RAM axpandivel para 48 K Bytes 

* Utilirivel em qualquer TV PAS ou cores 

* Conector para Joystick fogos) 

* Teclado tipo QWERTY com 49 teclas e 155 funções - tecias de edição 
(movimentação OR Cursor é correção! com repetição autemática 

* Exchusera tecia de inversão de video 

* Teia com 24 linhas de 32 colunas para texto 


* Resolução gráfica 64 x 44 pixeis (unidade gráfica), podendo atingir uma 
matriz de 256 x 192 quando utilizado com cartuchos 

* Cálculos ariméticos, funções trigonométricas. jogarfímicas e lógicas 

* Cartuchos “Instant Sol” iprogramas aplicativos em ROM - exchusivol 

* Velocidade de gravação em fita cassete 2.400 BPS 

EXPANSÕES: 

* Gravador de EPROM para gravar, editar e copiar programas em cartucho 

' nter'ace para mpressora ou máquena de escrever siétrica 

* Sintetizador de sons 

* MODEM (Comunicação isietônica - 1.200 Bauds 


* Preço sujeMo 5 aiteração 


A venda nas joias especializadas em micros 
foto-video-som e grandes magazines 

Não encontrando o Ringo nestes locais, ligue para 
2147.8400 (SP ou (011) 800,8441 e 800 8442 (Outras 
localidades do Brasil) DDD gratuito 


E ma = = 
RINGO 2-270 
E ISCAS) 
QU micro que aceita desafios 


Pitas do Brasil Lida - Divisão informática 
Tolex 1011) 34673 Rita BR 


Júnior. O micro prodígio. 
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Enxadrista experiente, Luciano Nilo de An- 
drade já escreveu para os jornais “Correio da 
Manhã”, “Data News” e “Ultima Hora” e pa- 
ra a revista “Fatos & Fotos”. Luciano é econo- 
mista, trabalhando no Ministério da Fazenda, 
no Rio de Janeiro. As opiniões e comentários 
de Luciano Nilo de Andrade, bem como as 
últimas novidades do Xadrez jogado por com- 





A Microsoft tem 120 programas em fifas e disquetes à sua disposição. 
São sistemas aplicativos para acompanhar e agilizar os negócios 
º* de sua empresa. E também jogos eletrônicos para você e sua tamília 
se divertirem muito. Todos especiais para TK-83, TK-85; 
——TK-2000, AppleIe compatíveis. E todos com a mesma qualidade. — —. — 
dos 100.000 programas já vendidos em todo o Brasil: 
— | Procure o revendedor Microsoft mais próximo (se não encontrar os 


programas Microsoft escreva para a Caixa Postal 54221 - CEP 01000 
TT ["["""S. Paulo-SP). Você encontrará os melhoras programas dasua vida.) AA 
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pútadores, estarão sempre presentes em 
MICRO SISTEMAS. 








Elite A/S vence 
o Campeonato Mundial de Micros 


o exemplar de fevereiro, MICRO SIS- 

TEMAS nº 29, divulgamos nesta se- 

ção as primeiras notícias obtidas a res- 

peito do Ill Campeonato Mundial de 
Micros. Agora retornamos com a sua comple- 
mentação. 


O Elite A/S, da Fidelity Electronics, EUA, 


venceu o Ill Campeonato Mundial de Progra- 
mas de Xadrez para Micros, realizado em Bu- 
dapeste, Hungria, no período de 13 a 20 de 
outubro de 1983. Esta é a terceira vitória dos 
programas do casal Spracklen. Eles também 
venceram os dois eventos anteriores com mi- 
cros da Fidelity, sempre com a ajuda do MI 
Baczynskyi, dos EUA. 

A vitória do Elite não foi sem sustos. Esca- 
pou de derrota que parecia certa frente ao 
Novag X na 42 rodada (ver diagrama A) e de 
outra mais sutil contra o Super Constellation 
(ver diagrama B). 

Os resultados individuais do Elite A/S fo- 
ram: 12 rodada, de brancas, venceu o Mephis- 
to Excalibur; 22 rodada, de pretas, venceu o 
Logichess 2.2; 32 rodada, de brancas, venceu 
o Mephisto X; 4º rodada, de brancas, empa- 
tou com o Novag X; 52 rodada, de pretas, ven- 
ceu o 2001 X; 62 rodada, de brancas, venceu 
o apa Star X. 

curioso notar que o Elite custa, aproxi- 
madamente, metade do Prestige, mesmo usan- 
do o mesmo programa e sendo do mesmo fa- 
bricante. O Elite tem 3 MHz e o Prestige, com 
seus 4 MHz, ficou em quinto lugar. Coisas do 
sistema suíço de emparceiramento? O terceiro 
aparelho da Fidelity a competir foi o Sensory 
9, que, por sua vez, classificou-se em 12º lugar. 


CLASSIFICAÇÃO FINAL 


Dezoito programas participaram do cam- 
peonato. Cada fabricante podia competir com 
até três modelos diferentes. Foram realizadas 
sete rodadas e o emparceiramento foi feito pe- 
lo sistema suíço. 

Campeão — Elite A/S, da Fidelity Electro- 
nics, EUA; programadores: Cathe e Dan Spra- 
cklen, auxiliados pelo MI Boris Baczynskyi, 6 
pontos. 2º — Mephisto X, de Hagener e Glaser, 
Al. Fed.; programadores: Elmar Hener e Tho- 
mas Nitsche, auxiliados pelo enxadrista Ossi 
Weiner, 5 pontos (+ 29). 3º — Novag X, da 
Novag, Hong Kong; programadores: David Kit- 
tinger, EUA, auxiliado pelo MI Scott Mc Do- 
nald, 5 pontos (+ 27,5). 4º — Super Constella- 
tion, da Novag, Hong Kong, 5 pontos (+ 25). 
50 — Prestige, da Fidelity Elect., EUA, 4,5 pon- 
tos. 6º — Chess 2001, da Intelligent Software, 
Hong Kong; programadores: David Levy e Kevin 
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O'Connel, 4 pontos (+ 26). 7º — Gédéon X, 
4 pontos (+12,5). 8º — Chess 2001 X, da In- 
telligent Software, Hong Kong, 3,5 pontos 
(+27). 9º — Mephisto Y, 3,5 pontos (+ 24). 
10º — Mephisto Excalibur, 3 pontos (+ 29,5). 
11º — Constellation, 3 pontos (+ 24). 12º — 
Sensory 9, 3,5 pontos (+ 23,5). 13º — Super 
Star X, 3 pontos (+ 22). 14º — Micromurks, 
2,5 pontos. 15º — Logichess 2.2, 2 pontos 
(+ 26). 16º — Chessmaster, 2 pontos (+ 21). 
17º — 65 Cyrus X, 2 pontos (+ 15,5). 18º 
— Labirint, 0,0 pontos. 


A VITÓRIA DO ELITE 
Elite A/S x Novag X 








Diagrama A 
— Posição 
depois de 70 
— ... Cg4 


As pretas, que poderiam ganhar com faci- 
lidade, empataram depois de 71-C7C+ R2B; 
72 — C5B C4R;73-C3R P5C;74 -COBRSC; 
75 — C3C R2B; 76 — C5B R1C;77 — R3B 
R2B; 78 — R4D e acabaram empatando por 
repetição de posição. 











Elite A/S x Super Constellation 





Diagrama B 





As pretas empataram depois de 82 — ... 
R3D(?); 83 — B4B R5R; 84 — B1C Rf5(?). 
Perdem a segunda oportunidade de iniciar a li- 
nha ganhadora. 85 — B6C R3C;86 — B4D R4B; 
87 — B6C e a partida terminou empatada por 
repetição. Como poderiam as pretas ganhar? 
Simplesmente jogando 82 — ... R6BII; 83 — 
T28B+ DxT+; 84 — BxD ARxB; 85 — P5B 
R6B; 86 — R1C ou 86 — R8T RxP. As pretas 
também ganhariam depois de 82 — ... P4B!, 
83 — R1T R6B!, entrando na variante anterior. 








UMA PEQUENA COMBINAÇÃO 





Prestige x Super Constellation 
Budapeste, 1984 


Diagrama € 

— Às brancas 
jogam e 
iniciam 
irresistível 
combinação 
(solução no 
final do 
artigo) 





O CALCANHAR DE ACHILES 


Sem dispor de tempo caseiro, ilimitado, os 
micros deixam escapar vitórias como qualquer 
capivara. É na fase final do jogo que se torna 
mais flagrante esta debilidade. Verdadeiro cal 
canhar de Achiles! 


Constellation x Prestige 


Diagrama D 


As pretas acabaram de jogar 69 —... P4CI 
e as brancas continuaram com 70 — P5T(?) 
R7T; 71 — R4C R7C; 72 — R5B RxP;73 — 
R6C R5B; 74 — RxP P5C; 75 — R7C PGC; 
76 — P6T P7C; 77 — P7T PBC = D +; 78 — 
R7B D7T+; 79 — R6C D5D e ganham. As 
brancas poderiam empatar facilmente com 70 
— PxP| PxP;71 — P4Cl R5B;72 — R2T RxP, 
73 — R2C, conseguindo a oposição e o empate. 


Solução 
“WeJseuopuege sezasdse a |HGH — E 
!dXA +9Xd — TZ" 1XD 1991 — L:D emesbeia 
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Calcular as dosagens certas dos produtos necessários 
para manter a água de sua piscina sempre 
limpa é o que faz este programa para a linha TRS-80 


CTP/M 









ou Como Tratar Piscinas no Micro 


ada melhor do que ter uma pis- 

cina em casa, mas quando ela 

começa a escurecer, surge uma 

preocupação: trocar a água ou 
fazer um bom tratamento? Trocar a 
água envolve maiores gastos e ainda por 
cima a reposição é demorada, donde se 
conclui que é bem mais vantajoso optar 
pelo tratamento. 

No tratamento, porém, as dosagens 
têm que ser corretas, variando conforme 
o volume de água da piscina, e aí surge 
outro problema: você terá que calcular 
direitinho as dosagens de cada produto 
de acordo com as dimensões de sua pis- 
cina — e no lápis isso se torna muito 
cansativo. 

Mas para todo problema sempre 
existe uma solução. Se você tem um mi- 
cro compatível com o TRS-80, com este 
programa bastará entrar com as medidas 
de sua piscina e seu computador fará os 
cálculos por você. São eles: 

e Dosagens diárias ou semanais — Para 
evitar que a água fique turva ou verde. 
e Decantação para aspirar — Para recu- 
perar a água já infestada pela sujeira. 
e Correção do PH — Com um estojo de 
teste é feita a medição do PH. O nível 
ideal é entre 7.2 e 7.6: abaixo de 7.2,0 
cloro torna-se instável, sendo consumido 
muito rapidamente; acima de 7.6, a água 
é alcalina e o poder anti-bactéria do clo- 
ro é reduzido. 

e Superdosagens — Quando a água esti- 
ver verde (com algas) ou em desuso por 
muito tempo. 

Rode o programa que ele é auto-ex- 
plicativo e ... bom fim de semana, com 
muita sombra e água fresca! 





Fernando César de Oliveira Galli é estudante 
de Ciências Contábeis na Instituição Moura 
Lacerda de Ribeirão Preto. Aprendeu a lin- 
guagem BASIC em seu CP-500, que possui há 
oito meses. 
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Fernando César de Oliveira Galli 


Tratamento de piscinas 





PRADA RAL 


(ARA Xas*a** TRATAMENTO DE PISCINAS - CP-500 +%%%%%%kWA% 
'* FERNANDO CESAR DE OLIVEIRA GALLI * 
'* R. FRANCA 1047 - RIBEIRAO PRETO (S.P) CEP 14100 x 
RARA ARARAS 
CLEAR1000:DEFSTRA-K:CLS:GOSUB670 
CLS:GOSUB720:PRINTG274,"Formato de sua piscina ? 
PRINTG401,"(1)";STRING$(16,95);" RETANGULAR 
PRINTGS29,"(2)";STRING$(16,95);" OVAL 
PRINTO65S7,"(3)";STRING$( 16,95); REDONDA 
PRINTOM86,"Entre c/ numero correspondente 
K=INKEYS:IFK="",120ELSEIFK "“1"ORK>"3",110 
CLS:Y=VAL(K) :ONYGOSUB260,310,360 
CLS:M=INT(M):IFM<=0,60 

PRINTTAB( 10)" <1> DOSAGENS DIARIAS E SEMANAIS 
PRINTTAB(10)" <2> DECANTACAO P/ ASPIRAR 
PRINTTAB(10)" <3> CORRECAO DE PH 

PRINTTAB( 10)" <4> SUPERDOSAGENS 

PRINTTAB( 10)" <5> NOVO CALCULO 

PRINTTAB(10)" <6> FIM";TAB(38)"*** VOLUME "M" m3 **% 
PRINTSTRING$S(64,45):P0OKE16916,7 

PRINTGB35,"Sua opcao > 
J=INKEY$S:IFJ=""ORJ<"1"ORJ>"6",230 

CLS: Z=VAL(J):ONZGOSUB400,450,500,610,660,660 

GOT0O220 

PRINTGB2,"PISCINA - RETANGULAR" :GOSUB740 

PRINTE389,"Comprimento (em metros)";:INPUTN 

PRINTG5 17,"Largura (em metros)";:INPUTO 

PRINTG645,"Profundidade (em metros)";:INPUTP 

M=N*0*P; RETURN 

PRINTGS2,"PISCINA - OVAL":GOSUB740 

PRINTG389,"Diametro maior (em metros)";:INPUTN 

PRINTGS 17,"diametro menor (em metros)";:INPUTO 

PRINTGG45,"Profundidade (em metros)";:INPUTP 
M=N*0*P*.785:RETURN 

PRINTeGB2,"PISCINA - REDONDA" :GOSUB740 

PRINTGB89,"Diametro (metros)";:INPUTN 

PRINT65S17,"Profundidade (metros)";:INPUTO 
M=N/2*N/2*3.1416*0:RETURN 

PRINTTAB( 16)"DOSAGENS DIARIAS E SEMANAIS 

PRINT: PRINT"ALGISTATICO.. "M*14" CC/ Dosagem inicial 

PRINT: PRINT"ALGISTATICO... "M*6" CC/semana 

PRINT: PRINT"CLORO LIQUIDO. "M*25" mi/dia 

RETURN 
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450 
460 
470 
480 


PRINTTAB( 16) "DECANTACAO PARA ASPIRAR 

PRINT:PRINT"SULFATO DE ALUMINIO "M*60" gramas 
PRINT:PRINT"BARRILHA LEVE "M*30" gramas 

PRINT:PRINT" Dissolva os produtos em recipientes separados, 


espalhe uniformemente, apos 24 horas faca a aspiracao. 


RETURN 

PRINTTAB( 16)"CORRECAO DE PH":PRINT 
INPUT"Qual o PH atual ";T 
IFT<6.5,PH=15.8ELSEIFT<=6.BANDT>=6.5,PH=12.7 
IFT<7.2ANDT>6.8,PH=9.5 
IFT>8.4,PH=19ELSEIFT<=8.4ANDT>=8,PH=12.7 
IFT<8ANDT>7.6;PH=6.5 

IFT<=7.6ANDT>=7.2,G="PH NORMAL" :H="" 
IFT>7.6,G="PH ALCALINO":H="grs/Barr. leve” 
IFT<7.2,G="PH ACIDO ":H="grs/Sulf. aluminio" 
PRINT:IFH="",PRINTGELSEPRINTG, PH*M;H 

RETURN 

PRINTTAB( 16)"SUPERDOSAGENS 
PRINT:PRINT"ALGICIDA.... "M*16" CC 
PRINT"CLORO LIQUIDO"M*50" CC":PRINT 

PRINT" Use superdosagens de algicida p/ matar as algas;remo 


va-as por aspiracao; use cloro p/ desinfetar e clarear. 


650 
660 
670 
680 
690 
700 
710 


RETURN 
POKE16916,0:IFZ=5,70ELSECLS: END 
PRINTCHRS(23):A=STRING$(32,35):FORX=1T014:PRINT;A:NEXT 
Z=400:FORX=1T04:PRITNGZ,STRING$S(16,128);:2=2+64:NEXT 
PRINTG470;"Tratamento";:PRINTG534;"de piscina"; 
FORT=1T03:X=302:GOSUB750:PRINTCHR$(28);:X=300:GOSUB750 
PRINTCHRS(23);:NEXT:RETURN 

FORQ=15498T015541:POKEQ,143 

POKEQ+768, 143:NEXT:RETURN 

PRINTO274, > Entre c/ as medidas":RETURN 


FORX=0T0400:NEXT:RETURN 


A Nasajon Sistemas, uma empresa 
especializada no desenvolvimento de 
programas, está lançando no mercado, 
em caráter exclusivo, um completo 
sistema de Folha de Pagamento para 
microcomputadores dos tipos 

DGT 1000, CP 500, TRS 80 e outros. 
Relatórios emitidos: Relação de Em- 
pregados, Quadro de Horários, Folha 
de Pagamento, Resumo da Folha, Re- 
lação de FGTS, Guia de FGTS, Rela- 
ção de 1.R., Guia de IAPAS, Relação 
p/Banco, Recibo de Pagto., etc. 


Controle de Estoque 20 
Mala Direta c/ Ed. Texto 25 
Contas a pagar/receber 15 
Tesouraria (c/saldo bancário) 15 
Crediário 30 
Contabilidade 30 


Você encontra esses e outros programas em nossos 
revendedores credenciados. 


dl: 


Microcenter Informática Ltda. 


Av. Rio Branco, 45 grupo 1311 — CEP 20090 


Tel.: (021) 263-1241 — Rio de Janeiro - RJ 














TRS-80 Modelo III: o mais vendido 





Quando ainda não se falava objetivamente em micros 
pessoais nos Estados Unidos, a entrada em cena do TRS- 
80 Modelo I da Radio Shack foi um marco decisivo 
na formação do mercado americano dos computadores 
para o lar. O primeiro passo estava dado, outros 
seguiram a mesma trilha e, posteriormente, o sucesso 
alcançado por essas pequenas e geniais máquinas na 
sociedade americana, fez com que grandes companhias 
(inclusive a IBM) passassem a investir seriamente 


nessa fatia de mercado. E a Radio Shack continuou 
causando impacto ao oferecer modelos e mais modelos 
em todas as possíveis configurações do momento. Os 
micros Tandy Radio Shack cruzaram fronteiras e, aqui no 
Brasil, aportaram em várias versões tropicais. Com 

o mesmo impacto dos Estados Unidos, os micros TRS 
brasileiros mantiveram a tradição de seus 

parentes americanos: ser campeões de vendas no 
mercado dos pessoais. 





à minha mulher, ela vai pensar que 

eu figugei maluco”. Assim reagiu o 
Presidente da: Radio Shack, Lou Kornfeld, ao 
lhe apresentarem o protótipo do primeiro 
computador pessoal comercializado com 
êxito no mundo, o TRS-80 Modelo 1, em 
1976. 

As dúvidas e o ceticismo de Komfeld, 
compartilhados por outros dentro da organi- 
zação tinham, não obstante, sua razão de ser. 
Afinal, naquela época os computadores ainda 
eram vistos como máquinas complicadas, aces- 
síveis apenas a um-seleto grupo de iniciados 
no assunto. Como, então, poderia o compu- 
tador transformar-se num produto de massa? 
Que utilidade reali poderia oferecer aos seus 
compradores? 

ssa pergunta foi, inicialmente, difícil de 


“O e eu der um negócio desses de Natal 


50 


er Crpicai sobretudo pelo fato de que todo o 
software disponível naquele momento resu- 
mia-se na linguagem Tiny BASIC e num mo- 
desto jogo de Blackjack armazenado em fita 
cassete. Essas dificuldades, no entanto, não 
diminuíram o entusiasmo da equipe liderada 
por Don French, o homem que idealizou o 
TRS-80. 

A primeira coisa a fazer para tomar 0 pro- 
duto bem-sucedido no mercado, perceberam 
logo os idealizadores do Modelo I, seria es- 
crever um manual capaz de ensinar aos ini- 
ciantes — de maneira simples e clara, mas ao 
mesmo tempo sem lhes insultar a inteligência 
— como operar o computador. 

Outro problema enfrentado é que na Ra- 
dio Shack — gigantesca empresa do ramo de 
componentes e produtos eletrônicos — nin- 
guém conhecia a fundo a linguagem BASIC. 


A solução foi contratar os serviços de um es- 
cialista, o Dr. David A. Lien, que relem- 
ra, em artigo publicado na edição de aniver- 
sário da revista 80 Micro em 1983, como nas- 
ceu o BASIC Nível 1: “Passamos (David Lien, 
Don French e Steve Leininger, outro integran- 
te do projeto) o dia todo sentados âquela me- 
sa redonda, Eu examinei uma lista exaustiva 
de palavras de BASIC e expliquei suas possibi- 
lidades. Dispúnhamos apenas de 4 K de ROM 
e tivemos, então, que decidir quais palavras 
incluir no interpretador BASIC. Parecia uma 
tarefa impossível, mas, no fim do dia, o BA- 
SIC Nível I era uma realidade”. 

O sucesso do Modelo I no mercado norte- 
americano — e logo a seguir em outros países 
— não tardou a vir, incentivando a Radio 
Shack a fazer diversos outros lançamentos que 
permitem à empresa, hoje, ostentar a maior e 
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mais completa linha de produtos da indústria 
de microinformática, incluindo hardware, 
software e acessórios. 

O BASIC Nível 1 evoluiu para o Nível II, 
bem mais completo e poderoso, e passou a 
equipar o Modelo II. Sistema de uso essen- 
cialmente comercial, com memória RAM de 
32 ou 64 K, 32 caracteres especiais para grá- 
ficos comerciais, o Modelo II trabalha com até 
quatro drives de 8”, face e densidade dupla 
(numa capacidade total de 2 Mb) ou, ainda, 
quatro discos winchester de 8,4 Mb cada. 

Dentro dessa linha de sistemas grandes de 
aplicação comercial, a empresa lançou tam- 
bém o Modelo 16, com dois processadores: 
Motorola MC68000, de 16 bits e clock de 6 
MHz, e Zilog Z80A, de 8 bits e clock de 4 
MHz. 


Compatível em software com o Modelo II, 
o principal destaque desse modelo é a sua ca- 
pacidade de processamento em modo multi- 
usuário, que lhe permite operar com até dois 
terminais de dados executando simultanea- 


mente programas diferentes. 

Em contraste com essas máquinas de gran- 
de capacidade — entre as quais temos ainda o 
Modelo 12, capaz de formar uma rede de au- 
tomação de escritório composta de até 255 
micros — a Radio Shack oferece os Pocket 
Computers, com tamanho de calculadora, mas 
desempenho de computador. O Modelo PC-1 
tem linguagem Pocket Computer BASIC, si- 
milar ao BASIC Nível 1,11 KB de ROM e 1,9 
KB de RAM. 

Bastante maior, mas ainda de grande por- 
tabilidade, em virtude de suas reduzidas di 
mensões e baixo peso, o Modelo 100 é mais 
poderoso que os seus irmaôs menores e incor- 
pora características que muitos sistemas de 
maior porte não têm, tais como modem em- 
butido. Sua memória vai até 32 K RAM, e o 
vídeo é de cristal líquido com matriz de 240 
x 64 pontos. O equipamento dispõe ainda de 
interfaces paralela, serial e para cassete e, a 
exemplo dos PCs, tem memória permanente 
mantida por baterias. 


No segmento de uso doméstico e lazer, a 
Radio Shack está presente com o Color Com- 
puter. O equipamento é fornecido em várias 
versões, com diferentes capacidades e aplica- 
ções, entre elas, a de funcionar como terminal 
de videotexto. A memória RAM vai de 4 a 32 
K, enquanto que a ROM pode ser de 4K,no 
caso de se utilizar o Color BASIC, ou 16 K, 
exigidos pelo Extended Color BASIC, que 
permite o uso de até quatro drives de S 1/4”, 

Dentre esses modelos, no entanto, os mais 
populares são os 1 (250 mil instalados) e HI 
(100 mil unidades vendidas nos dois primei- 
ros anos). 

Lançado em 1980 para substituir o Mode- 
lo 1 (que teve, em conseqiiência, encerrada a 
sua produção nos EUA), o Modelo III tem 
muita coisa em comum com o seu anteces- 
sor, tanto que é vendido em duas versões: a 
mais simples (e barata), que utiliza o BASIC 
Nível I de 4 K, do modelo anterior, e a mais 
sofisticada, com o BASIC Nível II de 16 K 
ROM. 








Modelos 1 e III: 
uma questão de compatibilidade 





a aparência extema, o Modelo III 
Ns num só gabinete diversos pe- 

riféricos que eram separados no Mo- 
delo 1, tais como o vídeo, drives, expansão de 
memória etc. Ambos utilizam o microproces- 
sador Z80, mas as velocidades diferem: 1,77 
MHz (Mod. 1) contra 2,08 MHz (Mod. HI). O 
tipo (monocromático, fósforo branco), for- 
mato (16 linhas de 64 caracteres) e resolução 
gráfica (128 x 48 pontos) do vídeo são os 
mesmos. De diferente, o Modelo III apresenta 
os caracteres minúsculos e um conjunto bas- 
tante amplo de caracteres alternativos (alfabe- 
to japones, letras gráficas, algumas figuras de 
jogos, etc.). 

No teclado, também, nem tudo é igual; o 
Modelo I não tem bloco numérico separado, 
enquanto que no III as teclas SHIFT da direi- 
ta e da esquerda podem ser encaradas como 
teclas separadas. O Modelo 1 aceita até duas 
unidades de cassete, com velocidade de trans- 
missão de 500 bauds. O Modelo HI ite 
apenas um cassete, mas a velocidade a trans- 
missão, selecionada por software, pode ser de 
500 ou 1500 bauds. Ambos gravam os arqui- 
vos de dados em 500 bauds, mas os programas 
em linguagem de máquina que utilizam o cas- 
sete como arquivo de dados, não serão compa- 


tíveis nos dois modelos, uma vez que os ende- 
reços das rotinas de cassete não são exatamen- 
te os mesmos. 


O acesso a impressora, no Modelo I, é fei- 
to por um endereço de memória, enquanto 
que no III é feito através de uma das portas 

o processador. Isso faz com que os progra- 
mas em linguagem de máquina que têm as 
suas próprias rotinas de impressão (Scripsit, 
Edtasm, etc.), não utilizando, assim, as rotinas 
existentes na ROM do computador, não sejam 
compatíveis nos dois modelos. O Modelo HI 
permite ainda que se cancele uma impressão, 
bastando apertar o BREAK; no Modelo 1, o 
computador fica totalmente travado, restando 
apenas a possibilidade de apertar o RESET. 


É nos discos que reside, talvez, a principal 
diferença entre os dois modelos. O Modelo 1 
utiliza drives de densidade simples, com for- 
matação de 35 trilhas de 10 setores de 256 
bytes, num total de 89600 bytes. O Modelo 
II usa drives de densidade dupla, com forma- 
tação de 40 trilhas de 18 setores de 256 by- 
tes, totalizando 184320 bytes, mais do que o 
dobro. É quase impossível trabalhar num Mo- 
delo 1 com apenas um drive, pois apenas o sis- 
tema operacional e o BASIC-Disco utilizam 


uase todo o espaço disponível no disquete. 
gicamente, o acesso aos discos é feito de 
modo bastante diferente. Dessa forma, pro- 
gramas em linguagem de máquina que utili- 
zam as rotinas do sistema para acessar os dis- 
cos, serão certamente incompatíveis nos dois 
modelos. 

No Brasil o quadro é um pouco diferente: 
em termos de pro as em BASIC, não com 
relação ao BASIC-Disco, a compatibilidade vai 
depender somente do sistema operacional uti- 
lizado: o TRSDOS dos Modelos 1 e III é bas- 
tante diferente, mas os outros sistemas — co- 
mo o DOSPLUS, o LDOS, NEWDOS e MUL- 
TIDOS, por exemplo — oferecem virtualmen- 
te os mesmos comandos aos dois modelos. Já 
nos programas em linguagem de máquina, as 
dificuldádes são maiores, pois, grande parte 
dos endereços utilizados não coincidem nos 
dois modelos. 

Em relação aos compatíveis nacionais, as 
diferenças entre os Modelos 1 e III são bem 
menores. O DGT-1000, por exemplo, é um 
Modelo 1, mas tem drives de densidade dupla 
e 40 trilhas, além do teclado numérico sepa- 
rado, enquanto que praticamente todos os 
modelos aqui fabricados apresentam carac- 
teres minúsculos no vídeo. 








O mercado brasileiro 





TRS-80 Modelo 1 e TRS-80 Modelo 

II, os micros da família americana 
que possuem versões tupiniquins. O Modelo I 
por ter sido o passa microcomputador a 
ser lançado nos Estados Unidos por uma com- 
panhia de grande porte de comercialização, a 
Tandy Corporation, garantiu um equipamen- 
to de baixo preço e facilmente encontrado nas 
6 mil lojas Radio Shack. O Modelo III por ser 
um projeto mais aperfeiçoado que o primeiro 
e ter se tornado, sem dúvida, um recordista de 
vendas no concorrido mercado norte-america- 


uando falamos em mercado brasileiro 
da linha TRS-80, nos limitamos ao 
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no, resultou numa alta disponibilidade de 
software. 

Atualmente, no mercado brasileiro, temos 
dois micros compatíveis com o primeiro mo- 
delo da família TRS: DGT-1000, da Digitus e 
JR Sysdata, da Sysdata. O Modelo III possui 
mais representantes nacionais: CP-500 e 
CP-300, da Prológica; Naja, da Kemitron e o 
mais recente lançamento da Sysdata:o Sysda- 
ta II. Temos também os computadores com- 
patíveis com o TRS-Color Computer que, por 
apresentarem características muito específi- 
cas, serão tratados à parte em nosso artigo. 

A história da linha TRS no Brasil se con- 


funde com a própria história dos microcompu- 
tadores em nosso país, já que o primeiro mi- 
cro a surgir no Brasil foi um equipamento da 
família Radio Shack. A Dismac, fabricante de 
calculadoras eletrônicas, no final de 1980, 
apresentou na Feira de Utilidades Domésticas, 
em São Paulo, o protótipo do primeiro com- 
putador pessoal nacional: o D-8000. Compatí- 
vel com o Modelo I, esse equipamento foi 
apresentado quatro anos depois de seu origi- 
nal ter surgido nos EUA. 

Dois anos depois, a série D-8000 da Dis- 


mac se expande no mercado brasileiro com 0 » 
D-8001 e D-8002. Entretanto, por ironia ou M& 
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não do destino, a Dismac, primeira a entrar no 
campo de batalha da linha TRS foi também a 
primeira a abandonar a luta e o pelo 
Apple, o que, segundo ela, foi uma “exigência 
do mercado”. Mas os fabricantes que sucede- 
ram à série Dismac estão aí, investindo em 
seus os fabricantes que sucederam à série 
Dismac estão aí, investindo em seus equipa- 
mentos e acreditando muito no futuro brasi- 
leiro da linha TRS. 


Os CPs da Prológica 


“A linha TRS é forte e estável. Desde que 
o Modelo III foi lançado ele mantém seu lu- 
pes afirma S. Carreiro, da Prológica. O 

-500 é um exemplo disso, lançado em abril 
de 1982, ele é o primeiro micro nacional intei- 
ramente compatível em hardware e software 
com o TRS-80 Modelo III. Carro-chefe da li- 
nha TRS no Brasil, o CP-500 já alcançou a 
marca de 10 mil equipamentos vendidos e foi 
apontado pelos lojistas como o micro da linha 
mais comercializado no Brasil 


O CP-500 é o que se pode chamar de um 
micro integrado, ou seja, em um mesmo gabi- 
nete estão reunidos o teclado, monitor de ví- 
deo fósforo verde e EAPUSA para até dois acio- 
nadores de discos flexíveis. 

Quatro configurações — todas com 48 
Kb RAM -— podem ser escolhidas para esta 
máquina. Na configuração mais simples, ele 
vem com interface para cassete, interface 
paralela para impressora e um gravador casse- 
te. Numa segunda versão, ele tr vir com 
uma unidade para disquetes de 5 1/4” e siste- 
ma operacional DOS 500. Nas outras duas 
versões, o CP-500 opera com duas e com qua- 
tro unidades de disquetes. 

Projetado para atingir, principalmente, 
uma faixa de público formada por profissio- 
nais e pequenas empresas, o CP-500 atende 
também o segmento hobbysfa e doméstico, 
mas em escala bem menor, fundamentalmente 

elo fator preço. Procurando preencher esta 
atia do mercado, entre o microcomputador 
de aplicações domésticas e o profissional, a 
Prol a lançou, em junho de 1983, o 
CP-300. 

Sendo totalmente compatível, tanto em 
hardware quanto em software, com o CP-500, 
o 300 nasceu baseado em um conceito: a mo- 
dularidade. “Havia uma brecha na linha de 
E praça da Prológica, que saltava do 
CP-200 (linha Sinclair) para o CP-500, explica 
S. Carreiro. “Vimos então que daria para colo- 
car o 500 numa versão econômica, sem drive, 
sem monitor, podendo ser ligado diretamente 
à televisão, com teclado mais simples que o 
profissional, sem teclado numérico reduzido, 
isto é, como um produto modular compatível 
com o CP-500 e com possibilidades de expan- 


e. + 
. 


são 

Para a Prológica, o CP-300 foi um sucesso 
de marketing, mas a opinião dos lojistas diver- 
ge nesse aspecto. A posição da Clappy, no Rio 
de Janeiro, É de que a demora da Prológica 
em colocar no mercado os periféricos que pos- 
sibilitam a expansão do CP-300, descaracteri- 
zou O equipamento no que ele tinha de mais 
importante: versatilidade. Com isso, as vendas 
do CP-300 foram dificultadas. 

Para a equipe da Imarés, em São Paulo, ao 
contíario, a opção criada pela entrada do 
CP-300 no mercado foi boa, ue abriu o 
leque de opções do emp A loja vem, inclu- 
sive, registrando uma boa comercialização do 
CP-300. Já a Compushop, de São Paulo, não 
chegou a piadas, rei izar o CP-300 porque seu 
proprietário, Roberto Riwczes, não conside- 
rou o CP-300 um produto novo. “Além disso”, 
disse ele, “a Compushop não está mais reven- 
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Naja: a versão sofisticada da linha TRS 


dendo os equipamentos da Prológica devido a 


problemas com esse fabricante”. 

Na verdade, a Prológica, considerada a 
quarta indústria de microcomputadores do 
país, sempre suscitou polêmica, principalmen- 
te por ser o fabricante nacional que resolveu 
optar pela verticalização, isto é , fabricar ela 
mesma, seus periféricos, principalmente com 
o objetivo de baratear o custo desses produtos. 


À versão mineira 
da Digitus 





Na I Feira de Informática, em outubro de 
1981, quando o computador ainda era enca- 
rado por muitos como um bicho de sete cabe- 
ças, uma das novidades era o DGT-100. Com- 
ms com o Modelo I da Radio Shack, foi 

abricado por três mineiros, colegas de Univer- 

sidade, que juntos criaram a Digitus. “O TRS 
é um computador moderno, de mais recursos, 
com um BASIC mais fácil também, e é o mi- 
cro que apresenta a melhor razão entre per- 
formance e custo”, disse Marcelo Batista, um 
dos Diretores da Digitus, ao justificar a esco- 
lha da empresa. 

O DGT-100, em sua configuração inicial, 
compreende a unidade central, um teclado 
alfa-numérico e uma fonte de alimentação, 
todos contidos no mesmo gabinete, e mais 
uma TV com função de monitor e um grava- 
dor cassete. 

es, pe da consolidação do DGT-100 no 
mer nacional onde o fato de ter sido es- 
colhido pela Telebrás para formação de sua 
comunidade informatizada teve um de 
de igitus u no Micro Festival de 

983, em Paulo, o DGT-101, uma nova 
versão do DGT-100. 

Totalmente compatível com o 100, tanto 
em hardware como em software, o 101 trazia 
três novidades: incorporação do parana ope: 
racional CP/M, acessando 64 Kb de : 
monitor de fósforo verde e duas unidades de 
disco. Mas, os usuários do DGT-100 puderam 
incorporar essas vantagens com a col ão à 
venda, pela Digitus, da interface para e 
de disco flexível, um monitor com tubo de 
fósforo verde, e a expansão para CP/M. 


Uma das diferenças existentes entre o 
TRS-80 Modelo I e o equipamento da Digitus 
é a maior capacidade de armazenamento das 
unidades de disco flexível, uma vez que o 
DGT-100 utiliza densidade dupla e o modelo 
da Radio Shack densidade simples. As dife- 
re não param por aí, desde o próprio 
se du do microcomputador, podemos incluir 


ainda as ração de genoa do teclado, o 
tratamento das interru e a incorporação 
de uma tecla de 5 “Estas diferenças, no 
entanto, em nada interferem na compatibili- 


dade dos equipamentos. 


Mas os empresários mineiros não ficaram 
por aí. Na última Feira de Informática, em 
outubro do ano passado, lançaram o DGT- 
1000. Na verdade o 1000 é um DGT-100 com 
um novo gabinete, de linhas mais harmonio- 
sas, em poliuretano; teclado numérico reduzi- 
do; vídeo profissional em fósforo verde; maior 
facilidade de expansão em placas facilmente 
encaixáveis em slots pelo próprio usuário e 
uma interface para cores em alta resolução. 
Com essa última, o sistema passa a trabalhar 
simultaneamente com dois vídeos: O monitor 
normal do micro e um televisor a cores, onde 
se obterá uma resolução de 256 x 192 pontos 
e 16 cores. 


Os modelos Sysdata 


Colocar no mercado um equipamento da 
linha TRS-80 potente, versátil e com um pre- 
ço razoável no disputado mercado dos pes- 
soais foi o objetivo da Sysdata quando lançou 
o JR Sysdata, em abril de 1983. 

Considerado por muitos uma opção mais 
barata, o JR da Sysdata é compatível com o 
Modelo I da linha TRS, mas apresenta alguns 
incrementos originais. as dessas novida- 


des são s pelos usuários do Júnior e 
outras já estão no mercado, porém não são 
facilmente encontradas. 


O JR tem na sua UCP, por exemplo, um 
ete rs 2 Kb de memória ROM ou 
EPROM. Nele podem ser utilizados um chip 
JR Extended BASIC ou um chip para auto- 
start de programas aplicativos, bem como uma 
memória EPROM gravada pelo usuário. 

O teclado do Júnior é implementado 
através de teclas do tipo chiclete, que é uma 
das opções, e também a melhor encontrada 
pela Sysdata para baratear o preço do seu 
equipamento . Entretanto, buscando atender 
a faixa de usuários que utiliza o micro PS ini 
sionalmente, a Sysdata está comerci o 
um teclado profissional adaptável. 

Por constatar que a linha TRS é a mais 
vendida no mercado brasileiro e.que existe 
uma grande qr idado de sofwtare disponí- 
vel no mercado para essa família de equipa- 
mentos, a Sysdata continua apostando nos 
modelos da Radio Shack, e lançou na última 
Feira de Informática, em São Paulo, dois 
novos computadores: o colorido TColor e o 
Sysdata II, compatível com o Modelo II. 


O Najaea Kemitron 


Partir da experiência bem sucedida da 
Radio Shack foi também a opção da Kemi- 
tron, uma empresa de Belo Horizonte, que 
lançou em outubro de 1982, na II Feira de 
Informática, o Naja, com software compatível 
com o TRS-80 Modelo III. 

“Optamos pelo Modelo III pela quantida- 
de de software existente no mercado bem su- 
perior aos outros, e pela qualidade do Z80, 
microprocessador bem avançado, superior ao 
8085, sendo somente superado pelos de 16 
bits”, afirmou Laércio Rodrigo de Matos, 
Gerente de Marketing da Kemitron. 

O Naja, com vídeo de fósforo verde opcio- 
cional, apresenta algumas implementações a 
partir do seu compatível da Radio Shack. 
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Um slot interno com seis conectores que dão 
acesso a todos os pinos da UCP foi introduzi- 
do para facilitar as expansões e tornar o mi- 
cro mais versátil, além.de facilitar o trabalho 
em controle de processos. 


O Sistema de comuta 
com a UCP na versão b , já trabalha com 
2,0 MHz (que é o clock do CP-500) e mais o 
clock de 3,6, tornando-o 70% mais rápido que 
o Modelo II da Radio Shack. A Kemitron 


de clock do Naja, 





oferece ainda uma placa que aumenta o clock 
para 4 até 6 Mhz, o que transforma o Naja em 
um dos micros mais rápidos no grupo dos de 
oito bits, só superado em velocidade de pro- 
cesamento pelos de 16 bits. 








Periféricos 


m relação aos periféricos da linha TRS, 
E com exceção da Prológica, que optou pe- 

la verticalização, as demais empresas que 
fabricam equipamentos dessa família optaram 
pelo sistema de OEM para comercialização de 
seus periféricos. Sendo assim, a maioria dos 
que existem no mercado para essa linha de 
equipamentos, de uma maneira ou de outra, 
levam a marca do fabricante. 

Desse modo, a relação dos periféricos da 
linha TRS que damos a seguir, fornecida pelos 
fabricantes à MICRO SISTEMAS, é o próprio 
retrato do que existe no mercado para essa 





família de a ipamentos. 
Prok (CP-500): Impressora P-500 (170,29 
ORTNs); Cabo igação de impressora 


p 

(13,27 ORTNs); RS 232 € (23,41 ORTNS). 

pe pis (DGT-1000): Expansão 48 Kb (19,25 
ORTNS); PO Se 64 Kb de RAM (33,19 
ORTNSs); Ca ara conexão das interfaces 
(844 ORTNS); Interface para drive (36,50 
ORTNS); drive de 5 1/4” (108,99 ORTNS); 
Interface impressora (5,64 ORTNS); Sin- 
tetizador de voz (28,14 (ORTNSs); Monitor 
TX 700 P/B (18,10 ORTNSs); Monitor TX fós- 


foro verde (23,53 ORTNSs); Placa CP/M 
(27,75 ORTNS). 


Sysdata (Jr.): Expansão 48 Kb (92,37 
ORTNs); Teclado profissional (17,50 
ORTNs); Interface para drive e impressora 
(37,71 ORTNSs); drive para 5 1/4” (95,97 
ORTNS); Monitor P/B (31,22 ORTNs); Moni- 
tor fósforo verde (34,50 ORTNSs); Extended 
BASIC (4,86 ORTNs); Placa CP/M (8,62 
ORTNS). 
Kemitron (Naja): Interface drive (52,00 
ORTNS); drive de 5 1/4” [120,00 ORTNS); 
RS 232 € (25/00 ORTNS); Placa de clock 4 
MHz (7,00 ORTNs); Placa de clock 6 MHz 
(25,18 ORTNs); Placa CP/M com 64 Kb 
(33,00 ORTNs); Placa de vídeo a cores 
(44,50 ORTNSs); Sintetizador de voz (48,30 
ORTNS); Interface de som (5,00 ORTNS). 
Além dessa pesquisa feita junto aos fabri- 
cantes, a reportagem de MICRO SISTEMAS 
consultou as lojas do Rio de Janeiro e 
de São Paulo, constatando que realmente 
todos (ou quase todos) os éricos da linha 
TRS estão nas rédeas dos fabricantes, a não 





ser, é claro, as TVs, gravadores e impressoras. 

Vejamos, então alguns desses: 

Impressoras: Elebra — Mônica 6010 (219,05 

ORTN$); Emília 8011 (241,38 ORTNS); Emí- 

lia 8031 (494,84  ORTNSs); Alice (555 

ORTNSs); Elgin MT-130 (434,49 ORTNSs); 
MT-140 (464,66 ORTNSs); Isa — EL 


8000 (205, 17 ORTNS). 


TV: TV Philco normal P/B com entrada para 
monitor (19,31 ORTNs); TV Philco com fós- 
foro verde (23,53 ORTNs); monitor Instrum 
fósforo verde (66,38 ORTNSs). 

Gravador: Cassete National com conta giro (o 
mais recomendado). 

Na loja Imarés, em São Paulo, encontra- 
mos ainda placa de alta resoluçã ica para 
CP-500 da PSI (102,59 ORTNSs); Joystick 

CP-500, da Corsário, (7,96 ORTNS); e 
ight-pen, da Prisma (11,46 ORTNS). 

Na Clappy, no Rio de Janeiro, além dos 
periféricos já enumerados, são comercializa- 
dos uma Placa CP/M para CP-500, da Progus 
(28,96 ORTNs) e outra Placa CP/M, também 
para CP-500, da Microsol (42,24 ORTNS). 








Assistência técnica 





fabricantes nacionais da família TRS 
como questão de primeira ordem. 
Talvez por isso, a maioria optou por fornece- 
rem eles mesmos assistência aos seus equipa- 
mentos ou, no máximo, credenciar poucas 
empresas no seu Estado e mais algumas fora 
dele, simplesmente age incapacidade natural 
de atender usuários de outras regiões. 
Enquanto os fabricantes mantém um posi- 
cionamento centralizador, resta às empresas 
não credenciadas lutar com seus próprios 
meios. Quando se trata de grandes as, a 


À assistência técnica é encarada pelos 
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coisa fica mais fácil, mas a reclamação parte 
justamente das pequenas e médias que, não 
autorizadas e sem chances para tal, carecem 
de manuais de fabricação e esquemas. Essa 
documentação, segundo muitos, deveria estar 
não só ao alcance das firmas de manutenção 
mas até mesmo do próprio usuário. 
Entretanto, com ou sem assistência técnica 
centralizada, os problemas surgem e as empre- 
sas tentam resolvê-los com os recursos que 
possuem. Na opinião do pessoal de assisten- 
cia técnica e manutenção consultados por nos- 
sa reportagem no Rio de Janeiro e em São 


Os Color nacionais 


Paulo, os defeitos apresentados nos equipa- 
mentos nacionais da linha TRS são, na sua 
maioria, decorrentes de falhas mecânicas e 
a secirármegre dificilmente se referem a parte 
eletrônica, isto é, eles estão mais centraliza- 
dos nos periféricos. 

O problema número um das nossas versões 
TRS, apontado por quase todos da área e 
mesmo pelos fabricantes, é a unidade de dis- 
co. Considerada como parte mecânica do 
equipamento, o drive é suscetível a defeitos 
por ser um elemento de precisão, que está em 
contato constante com usuários os mais diver- 


Independente desse quadro, os fabricantes nacionais de Colors 
dução de software. q pre dep cen ap 
o 

CD-6809 com sistema de cores brasileiras PAL-M está anunciando 


expansão de memória para 64 K e sintetizador de voz. 


A Novo Tempo tumbite ae np no Color 
64,a partir do americano, como gr Va 


para monitor, 


e codotou do aipnmiado REIDRATDA INN TE 
seus 
orços para 


direcionando 
equipamentos com 


de sinal de vídeo PAL-M, teclado pro 


está, no momento, 
necessitem de 
sentido, estão 


fatias de mercado 
especiais. 


ANTIOPE e outra para convensão AD/DA de 12 bits o Pot 


ANTIOPE e outra para 


nessa linha — TColor e VC-50 — trazem 


idade de seleção entre o uso de drive ou 
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sos € que nem sempre tomam as devidas pre- 
cauções quanto à utilização do sistema. Além 
disso, algumas firmas assinalaram ainda, a má 
qualidade dos componentes eletrônicos mais 
específicos do drive, aqueles responsáveis pela 
leitura e escrita. 


O CP-500, da Prológica, foi apontado pelas 
empresas de manutenção como o equipamen- 
to da linha TRS que mais apresenta proble- 
mas com o drive, nos outros a incidencia é 
menor. Esses problemas podem ser traduzidos 
por desalinhamento da cabeça de leitura e 
gravação e desajuste de velocidade. 


Diante disso, alguns cuidados especiais de- 
vem ser tomados pelos usuários ao lidar com o 
drive, já que a má utilização contribui para 
agravar sensivelmente o problema, 


Um dos alertas vai para a questão de desali- 
nhamento da uniaade de disco e os entendidos 
aconselham o alinhamento periódico, como 
garantia. 

Só para se ter uma idéia do que a displi- 
cência com esse ponto pode causar, se o usuá- 
rio trabalhar com uma unidade desalinhada 
embora o sistema esteja funcionando bem, irá 
fazer gravações fora do padrão. Quando a uni- 
dade parar de vez e o usuário proceder ao ali- 
nhamento terá uma triste surpresa: os disque- 
tes que foram gravados fora do padrão apre- 
sentarão erro de disco, de entrada ou o pró- 
prio sistema não vai aceitá-los. 


Por fim, algumas dicas que garantem um 
melhor funcionamento dos drives: 


e não deixar os disquetes em locais de muita 
poeira ou expostos ao sol; 

e não fumar próximo aos disquetes; 

e jamais tirar ou inserir um disquete com o 
led do drive aceso: 

e manter as mesmas condições de regulagem 
de tensão dos componentes, também em 
relação aos drives — o drive deve ser conec- 
tado a uma fonte de tensão regulada; 

e quando algum desajuste surgir, recorrer 
imediatamente a uma equipe técnica quali- 
ficada. 


Mas não são só os drives que dão dores de 
cabeça aos usuários da linha TRS. Com me- 
hor incidência, é bem verdade, as empresas de 
assistência técnica falaram ainda sobre o tecla- 
do, um problema que é menor no CP-500 e 
maior nos equipamentos Digitus e Kemitron. 
Algumas teclas desses micros deixam de fun- 
cionar é a solução é substituir o reed switch 
(componente ativo do teclado). Fabricantes, 
como a Digitus e a Kemitron, confirmam o 
problema, mas acrescentam que ele já está 
sendo solucionado. Segundo elas, tratou-se de 
uma femessa defeituosa que foi colocada no 
mercado pela Digiponto, tradicional fabrican- 
te de têclados. 


Para melhor posicionamento de nossos lei- 
tores, na área de assistência técnica, a MS pe- 
diu uma pequena relação à BCD Engenharia, 
Montagem e Comércio, com os defeitos mais 
corriqueiros apresentados pelos equipamen- 
tos da família TRS brasileira e as adaptações 
mais solicitadas, além dos respectivos preços: 


e Reparos na UCP — 6 ORTNs (preço médio) 

e Regulagem e limpeza de drive - 4,8 
ORTNs 

e Conserto de teclado (substituição do reed 
switch) — 2,4 ORTNs 

e Instalação de drive — 3,6 ORTNs 

e Instalação de expansão de memória — 
2,4 ORTNs 

e Monitorização de TV preto e branco — 
3 ORTNs 

9 CIT de TV colorida PAL/M 
— 4,2 ORTNs 

e Instalação de joystick — 3 ORTNs 








Sofware 





família TRS é seguramente uma das 

linhas de microcomputadores que 

mais possui software desenvolvido 
para seus equipamentos. O fato de ter sido 
uma das primeiras a surgir no mercado ameri- 
cano e também a sua forma ampla de comer- 
cialização, através de uma cadeia como a Ra- 
dio Shack, incentivou e muito uma indústria 
dinâmica de software. 

Entretanto, quando nos referimos a soft- 
ware nacional para a linha TRS, as opiniões 
de nossos fabricantes divergem um pouco. 

Enquanto a Prológica e a Sysdata conside- 
ram suficiente o software disponível no nosso 
mercado, para a linha TRS, tanto em quanti- 
dade como em qualidade, a Digitus é categó- 
rica ao afirmar que ele não é satisfatório. 
falamos em jogos, tudo bem, mas se falamos 
em aplicações profissionais, na área contábil, 
financeira ou administrativa, vemos muitas 
adaptações de pacotes americanos e poucas 
aplicações que tenham a ver com a nossa rea- 
lidade”, diz Marcelo Batista. 

Na opinião de Laércio Matos, da Kemi- 
tron, a quantidade de software é de mas 
não suficiente. “Para uso pessoal, sim, mas pa- 
ra uso comercial, com exceção das versões, é 
fraco. Mas Laércio faz uma ressalva: “em com- 
ps com as outras linhas, os equipamen- 
tos TRS ainda são os mais favorecidos nesse 
ponto”. 

Com relação aos utilitários, é bom frisar 
que o usuário da linha TRS não precisa ficar 
esperando as software houses nacionais colo- 
carem suas versões dos compiladores ameri- 
canos no mercado. Utilitários americanos são 
encontrados em muitas lojas de microcompu- 
tadores, copiados em disquetes, com xerox ou 
não do manual original, traduzidas ou não, tu- 
do ao gosto e de acordo com o bolso do fre- 


guês. O mesmo se pode dizer de certos aplica- 
tivos americanos. 

A seguir damos uma relação dos utilitá- 
nos e aplicativos originais que são comercia- 
lizados na Clappy, Rio de Janeiro, e na loja 
Imarés, em São Paulo. Os preços variam bas- 
tante já que muitos fatores concorrem na ela- 
boração do valor final. Só para se ter uma 
idéia, nesse cálculo entram o valor do disque- 
te, o tempo gasto para copiá-lo, o preço da 
xerox do manual, o tempo gasto para tirar a 
xerox, garantias ou não do lojista e por aí vai. 

Muitos desses utilitários estão inseridos em 
sistemas operacionais, mas acabam sendo ven- 
didos separadamente. É o caso do Superzap e 
do Editor Assembler que compõem o Sistema 
Operacional NEWDOS. Infelizmente, nem 
sempre o usuário sai ganhando nessa história: 
muitas lojas não dão garantia na aquisição des- 
ses produtos e as cópias nem sempre saem 
perfeitas também, porque o nível de legibili- 
dade das cópias xerox vai degradando. 

Utilitários (Clappy): Compilador COBOL 
(13,27 ORTNs), Compilador FORTRAN (6 
ORTNs), Compilador Basic (10 ORTNS), 
Compilador Pascal (13,27 ORTNs), Superzap 
(2,65 ORTNs), Editor Assembler (2,65 
ORTNs),  Disassembler (2,65  ORTNS); 
(Imarés): Editor Assembler (4 ORTNs), Com- 
ing Basic (30 ORTNs), Compilador CO- 

OL (32 ORTNs), Compilador Pascal (28 
ORTNS). 

Aplicativos americanos (Clappy): Micro- 
Files (5,31 ORTNSs), Profile (5,31 ORTNS), 
Profile Plus (13,27 ORTNSs), Scripsit (6,63 
ORTNs), Superscripsit (13,27 ORTNs), Visi- 
Calc (13,27 ORTNs); (Imarés): Superscripsit 
(27 ORTNS), Scripsit (22 ORTNS), Z Basic 
(22 ORTNS), Uolisp (20 ORTNS), Lisp (33 
ORTNS). 








À vez do usuário 





se pretende definir o típico usuário 

da linha TRS. A prion, os lojistas se- 
riam pessoas indicadas para traçar um perfil 
do comprador da linha TRS, o que já seria 
um primeiro passo. Entretanto, nem mesmo 
eles, que lidam diariamente com o público 
dessa família de equipamentos, foram capazes 
de manter uma coerência de opiniões. 

Visando definir melhor esse usuário e ao 
mesmo tempo colocar em discussão a visão 
que eles têm de cada um dos equipamentos, 
MICRO SISTEMAS promoveu um encontro 
de usuários da linha TRS. Estiveram presen- 
tes Roberto Quito de Sant'Anna (CP-500), 
João Henrique ho (D-8000), Ivan Camilo 
Cruz (CP-500 e DGT-100), Francisco Laporte 
(JR Sysdata), Bruno Sartore (JR Sysdata), 
Guilherme Fernandes (Color 64) e Renato 
Degiovani, com a experiência do CPD de 
MICRO SISTEMAS. 

E foram esses usuários que opinaram a res- 
peito da utilização dessa família de microcom- 
putadores. Roberto Quito de Sant'Anna, En- 

nheiro de Telecomunicações, professor de 
Informática da AMAN e usuário de um 
CP-S00 há dois anos, não acredita que esse 
equipamento possa ser adquirido por alguém 
que pretenda utilizá-lo em aplicações domés- 
ticas. “A nível pessoal, o CP-500 poderia atin- 


P arece não haver muita clareza quando 


gir a faixa de entretenimento, mas isso outros 
micros fazem por um preço menor. Já a faixa 
profissional nem todo micro atende. O 
CP-500 serve perfeitamente”. 


Mas Ivan Camilo Cruz, que trabalha no 
Instituto de Química da UFRJ desenvolvendo 
po as administrativos em equipamentos 

RS, é de opinião que a fatia da linha TRS 
lançada no Brasil até agora é estritamente pes- 
soal. O fato dela estar sendo usada na área 
profissional/comercial é reflexo da situação 
econômica de muitas empresas e de profissio- 
nais que não podem adquirir um equipamen- 
to mais caro e mais potente. 

Um usuário pessoal com menor experiên- 
cia em equipamentos TRS, como Francisco 
Laporte, acredita que existe espaço para apli- 
cações domésticas e pessoais em equipamen- 
tos TRS. “Acho que a partir daí vai se desco- 
brindo muitas coisas sobre o equipamento, 
acabando por chegar a aplicações mais sérias e 
úteis”, diz ele. 

Seja qual for a utilização que os usuários 
da linha TRS déem ao seu equipamento, uma 
coisa é certa: todos têm opinião formada a 
respeito do seu micro, sabem o tipo de infor- 
mação que faltou no manual do fabricante, sa- 
bem os defeitos mais comuns do seu equipa- 
mento, as rotinas e os periféricos que estão 
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faltando. Sendo assim é com eles que está a 
palavra de agora em diante. 

Um fato assinalado por todos os usuários, 
salvo raras exceções, é a má qualidade dos ma- 
nuais que acompanham o equipamento e o di- 
fícil contato com o fabricante, o que difi- 
culta o fomecimento de dados e esclarecimen- 
to de dúvidas a respeito do funcionamento da 
máquina. 

A experiência de João Henrique Volpini, 

Engenheiro Naval, terminando Pós-Graduação 
na COPPE/UFRJ, que adquiriu um D-8000 da 
Dismac há cerca de um ano e meio, é das mais 
interessantes. O equipamento chegou sem ne- 
nhum manual de instrução para montagem. 
Depois de uma intensa batalha e de um em- 
purrãozinho do lojista, o D-8000 tomou cor- 
po e alcançou a forma certa. Depois, para li- 
dar com o equipamento foi outra etapa e ele 
acabou tendo que adquirir um manual do CP- 
500. Nessa época, as tentativas de contato 
com a Dismac por parte de Volpini foram 
inúteis. “Hoje — diz ele — eu ajo como se meu 
equipamento simplesmente não tivesse fabri- 
cante”, 
Roberto Quito de Sant'Anna considera o 
manual do CP-S00 razoável, mas em compa- 
ração com os outros da mesma linha é o me- 
lhor. Já não diz o mesmo em relação a sua ex- 
periência com o fabricante: “Liguei uma vez 
para a Prológica e a cada pergunta eles argu- 
mentavam: 'mas isso é segredo de diretora", 
'mas isso só o diretor sabe dizer". Resultado, 
não consegui saber a designação das portas 
E/S do CP-500 e desisti de entrar em contato 
com o fabricante”. 

Guilherme Fernandes, estudante de Enge- 
nharia Eletrônica, considerou bom o manual 
do Color 64, uma rara exceção, mas em com- 
pensação criticou bastante o relacionamento 
entre os usuários e os fabricantes. “Eu paguei 
o equipamento com modulador, mas na ver- 
dade ele não tinha modulador, só quando re- 
cebi o micro é que descobri isso”. 

O primeiro contato de Bruno Sartore, de 
15 anos, com o seu JR também não foi muito 
bom. A ligação dos cabos da interface de gra- 
vação estava errada e ele levou algum tempo 

ara descobrir isso, Experiência semelhante 
oi reistrada no CPD de MICRO SISTEMAS 
em relação ao DGT-100. A tomada de tensão 
110/220 Volts estava invertida, o que sem ser 
observado a tempo poderia causar um dano 
maior ao equipamento. E nesse ponto que 
muitos usuários se mostram descrentes em 
relação a essa propagada preocupação com 
o controle de qualidade por parte dos fabri- 
cantes. 


Torre de Babel 


Enquanto o assunto entre os usuários da 
linha TRS reunidos por MICRO SISTEMAS 
girou em tomo dos manuais e do relaciona- 
mento com os fabricantes, as opiniões foram 
quase sempre as mesmas, apenas com peque- 
nas nuances devido às experiências de cada 
um. Mas quando o assunto se voltou para o 
equipamento em si, o que se constatou é que 





mas que raciocinam, do prof. Antonio Costa. 


nha seus bytes sob controle. 
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— Faça de seu Apple um eficiente detetive, entendendo como se pro- 
cessam as deduções lógicas na sua máquina, através do artigo Progra- 


— Carlos Alberto Diz traz informações valiosas para que você Mante- 


— Outras palavras em Forth, de Ivan Camilo Cruz, implementa novos 


cada um falava uma língua diferente. Isso de- 
monstrou claramente que a família TRS é 
uma linha de equipamento sui generis. A 
comunicação entre seus usuários, quando se 
trata de falar sobre seu micro, é muito difícil, 
devido à própria especificidade dos equipa- 
mentos dessa linha. 

O usuário do Color, Guilherme Fernandes 
fez uma observação particular a respeito do 
seu equipamento. Depois de adquiri-lo, Gui- 
lherme passou a considerar como única des- 
vantagem desse equipamento o fato dele ser 
reconhecido por muitos como um micro para 
joguinhos. “O software disponívei é reduzido 
e a maior parte do que existe são jogos. Nós 
não compramos um videogame e sim um com- 
putador”, 





CP-500: campeão de vendas no mercado 
brasileiro 


Mas certamente não é esse tipo de preo- 
cupação que está presente no usuário do CP- 
500. A preocupação de Roberto Quito, por 
exemplo, foi com relação ao sistema de refri- 
geração do CP-500, considerado por ele defi- 
ciente. “O transformador do micro tem um 
ventilador que, ao invés de refrigerar, espalha 
calor dentro dele. Não há exaustão. Depois de 
meia hora de utilização se tira o disquete do 
drive e ele está frito. A Prológica poderia pelo 
menos canalizar a distribuição ou circulação 
de calor dentro dele. Essa seria a solução ade- 
quada, mas a minha foi a de adaptar um 
exaustor”, 

A segunda observação sobre o CP-500 diz 
respeito ao amplificador de audio interno. 
Alem da geração de som no CP-500 ser difi- 
cultada pela falta de um comando que facilite 
o uso do sintetizador, os usuários assinalaram 
falhas no projeto do amplificador de som da 
Prológica. 

Os drives não passaram impunes pela mar- 
cação dos usuários. Com um ano de funciona- 
mento os dois drives de Roberto Quito apre- 
sentaram excesso de velocidade. Um pouco 
menos sorte teve Ivan Camilo que com ape- 
nas uma semana de uso do seu CP-500 come- 
çou a enfrentar problemas no drive, os mais 
diversos, e que não foram resolvidos até hoje. 
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comandos ao compilador Forth — publicado em MS nº 22 —, inclusi- 
ve alguns bastante úteis para a programação de jogos. 

— MICRO BUG continua com muitas novidades: dessa vez explica o 
comando M e as principais rotinas do Sistema Gerenciador de Módu- 


los do seu Sinclair. 


— MS traz ainda os programas Correção de provas e cálculo de áreas. 
para os micros da linha TRS. 





Em problemas de drives, o CP-500 não 
reina sozinho. Ivan Camilo, que também é 
usuário de um DGT-100, apontou problemas 
com os drives desse equipamento. Inclusive, 

la experiência que possui nos dois micros, 
van é de opinião que os drives da Digitus são 
até mais problemáticos que os da Prológica. 

Quando o assunto se voltou para esses dois 
modelos da família TRS mais comercializados 
no Brasil, CP-500 e DGT-100, algumas dife- 
ren importantes foram assinaladas pelos 
usuários desses dois equipamentos. Nessa bre- 
ve comparação, que não envolve evidentemen- 
te todos os aspectos técnicos dessas duas má- 
quinas, estão frisadas apenas aquelas diferen- 
ças que saltam mais aos olhos de quem utili- 
za o equipamento no dia a dia. 





JR Sysdata: uma opção mais barata 
na linha TRS 


No Digitus, por exemplo, o fato da sua 
UCP apresentar 55 MHz contra 2 MHz da do 
CPSO6, | lhe confere maior agilidade no pro- 
cessamento de certas rotinas operacionais, Foi 
apontada também uma maior velocidade de 
gravação em cassete do DGT-100, são 2 mil 
bauds contra, no máximo, 1 mil e 500 do 
CP-500. 

Quando o usuário quer utilizar repetição 
de teclas encontra mais agilidade no DGT-100. 
Apesar desse ponto não ser de muita impor- 
tância quando se trata da digitação de lista- 
gens, ele torna-se primordial em edição e de- 
puração de programas. 

O equipamento da Digitus ainda apresen- 
ta alguns recursos visuais, de traço e de linha, 
não disponíveis no CP-500. No entanto, o 
CP-500 possui muito mais caracteres gráfi- 
cos. De negativo, no DGT-100, os usuários 
apontaram o chuvisco na tela, o que prejudi- 
ca a parte visual dos programas (principal- 
mente se forem jogos). 

Embora não participando da discussão em 
tomo de drives, som e outras características 
presentes no DGT-100 e CP-500, os usuários 
do JR da Sysdata mantiveram um papo para- 


lelo onde assuntos como teclado, barulho do »» 
equipamento e até mesmo a incerteza quanto 8 
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foi elaborada com base em questionários respondidos pelos fabricantes, e os preços 


referem-se a fevereiro/B4 (valor da ORTN: Cr$ 8.285,49). 


que o equipamento 





A GERAÇÃO RADIO SHACK 


a compatibilidade de seu equipamento estive- 
ram presentes 
Coincidência ou não, o que determinou a 
compra de um JR, pelos dois usuários presen- 
tes, foi o preço desse equipamento. “Eu que- 
ria um equipamento da linha TRS, disse Bru- 
no Sartore, e o mais barato era o da Sysdata” 
“Eu também adquin um JR devido ao menor 
preço desse equipamento e por acreditar que 
egg você compra um DGT-100, na verda- 
e, está pagando mais pelo design e pelo te- 
clado”, afirmou Francisco Laporte. 
Um teclado não profissional foi, na ver- 
dade, uma saída da Sysdata para poder colo- 





DGT-100: a versão mineira do Modelo | 





car no mercado um produto mus competit- 
vo a nível de preço. E é justamente desse 
teclado que reclamam os usuários do seu equi- 
pamento. 

Depois dessa colcha de retalhos, onde cada 
usuário fez as suas observações específicas fica 
uma pergunta no ar; o que, na verdade, esta- 
ria faltando aos usuários da linha TRS” Bem, 
sundo das articularidades de cada equipa 
mento, poderíamos pensar em cores e alta re- 
solução grafica. Algumas empresas, pensando 
nisso, já estão oferecendo essas opções aos 
equipamentos TRS (vide bloco sobre penfe- 
ncos!) 








Sistemas operacionais 


os (Disk Operating System), mais 
D conhecido entre nos como Sistema 
Operacional em Disco é uma palavra 
comum no vocabulário dos micros da família 
TRS, já que estes sistemas controlam a ope- 
ração dos computadores que utilizam disco. 

Os sistemas operacionais que tre mare 
nossos micros são baseados em dois famosos 
DOS americanos: TRSDOS da Radio Shack e 
NEWDOS da Apparat Inc. O primeiro serviu 
de espelho à Prológica no DOS-$00 do CP-500, 
co quado à Digitus no DIGDOS do 
DGT-1000. 

Além do DOS, os usuários da família TRS 
também contam com o Sistema Operacional 
CP/M vg cce ele consta da lista de perifé- 
ricos da Digitus, Kemitron, Sysdata e algumas 
empresas como PSI, dy e Microsol estão 
comercializando placa CP/M para o CP-500. 





Não faremos aqui uma análise dos Siste- 
mas Operacionais em Disco normalmente co- 
mercializados nos Estados Unidos e aqui no 
Brasil, inclusive porque MICRO SISTEMAS 
já dedicou uma de suas edições à análise e ca- 
racterísticas desses sistemas(MS, nº 25) 


Os usuários de micros TRS no Brasil não 
precisam ficar limitados apenas aos sistemas 
que acompanham o seu micro. Diversos ou- 
tros DOS (DOSPLUS, NEWDOS, LDOS, etc.) 
são encontrados em muitas lojas que comer- 
cializam microcomputadores e são consegut- 
dos ou a partir de um bate-papo discreto com 
o vendedor, em algumas delas, ou através do 
pedido formal e direto, em outras. Para ou 
tros, a saída tem sido recorrer áquele amigo 
que conseguiu o sistema original, copiá-lo e 
tirar uma xerox do manual 


O que normalmente acontece, nessa linha 
de equipamentos, segundo os lojistas, são 
usuários do CP-S00 interessados no NEWDOS 
e os do DGT-1000 interessados no manual do 
NEWDOS, já que o manual do DIGDOS foi 
apontado por muitos como carente de infor- 
mações 

Aqui vão os preços dos Sistemas Opera: 


cionais em Disco originais encontrados mais 
facilmente nas lojas do Rio e São Paulo 


e TRSDOS - Radio Shack (com manual) 
9,65 ORTNs 

e NEWDOS Apparat Incorporation (com 
manual) - 9,65 ORTNs 

e DOSPLUS - Micro System Software (com 
manual) 10 ORTNs 

e LDOS Logical System Incorporation 
(com manual) - 9 ORTNs 








Tendências da Linha TRS 





a última Feira de Informática no 

Parque Anhembi, em São Paulo, en- 

tre feixes de raio laser e novidades na 
área de computação, assistimos a um fato 
curioso: uma avalanche de lançamentos na hi- 
nha Apple e poucos lançamentos na linha 
TRS. Sem estardalhaço, apenas duas empresas 
estrearam no mercado TRS, a Engetécnica Va- 
rix e a Novo Tempo. O que estaria acontecen- 
do com a linha de equipamentos TRS no Bra- 
sil? Será que os micros Apple se tornaram um 
concorrente sério para os TRS? Ou será que as 
potentes máquinas de 16 bits já começaram a 
rd as unhas de fora, inibindo o mercado de 

ts 

Não podemos deixar de nos espelhar no 
mercado americano e acreditar que o lança- 
mento do Tandy 2000 pela Radio Shack, um 
equipamento de 16 bits não mais compatível 
com a chamada linha TRS, é sem dúvida um 
gnal dos tempos. Mas de lá para cá o caminho 
costuma ser bem mais longo e até com alguns 
desvios, a história tem provado isso, Sendo as- 
sim, ainda sobram muitos outros parâmetros a 
serem estabelecidos nessa questão. 

As opiniões a respeito dessa provável estag- 
nação da linha TRS no Brasil são as mais va- 
nadas. Carlos Diz, que vem acompanhando de 

rto hã treze anos o mercado de micros no 
Brasil (atualmente é sócio-gerente da Com- 
usystem, software house especializada em 
co de dados), considera O equipamento 
Apple um forte concorrente da linha TRS 
dentro do mercado profisssonal/comercial 
Não pela sua versatilidade, recursos de cores 
ou alta resolução gráfica, mas sim pela políti- 


& 


ca de marketing que os fabricantes dessa li- 
nha de micros vem adotando, especialmente a 
Unitron, apoiando o revendedor e até mesmo 
o usuário. O que já não acontece com os fa- 
bricantes da linha [RS 

“O Apple só é concorrente por esse as- 
pecto”, frisa Carlos Diz, “porque eu acredito 
que o TRS-S0 apresenta o necessário ao usuá- 
rio que pretende utilizar o micro na área pro- 
fissonal/comercial, Nesse campo, a pessoa 
busca eficiência, rapidez, precisão, mas quer 
também um objeto de trabalho agradável, um 
vídeo que não canse a vista, uma tela de bom 
tamanho. O TRS (DGT-1000 e CP-500) tem 
vídeo de fósforo verde e sua tela possui 24 
colunas a mais que o Apple. Vendido em par- 
tes, se a pessoa quiser que um Apple tenha 
todas as vantagens que oferece um Modelo | 
ou Il terá que gastar mais dinheiro com im- 
plementações extras” 

Com relação a entrada em cena dos micros 
de 16 bits, Carlos Diz acredita que ainda é ce- 
do para se falar nisso seriamente no Brasil 
“não podemos ter necessidade por 16 bits 
quando há três anos atrás não tínhamos nem 
para 8 tuts”. Entretanto, Emesto Camelo, 
com larga experiência na revenda de micro- 
computadores pois inidou no mercado em 81 
como gerente da primeira loja de mucros do 
país: a Computique, acredita que os micros 
de 16 bits chegaram no Brasil para ficar 

“Hoje eles ainda não são concorrentes do 


“TRS, mas o preço dos de 16 bits vai cair, isso 


é uma questão de atualização tecnológica. A 
nível internacional os 5 lxts estão em sobre- 
vida. O usuário no Brasil talvez não necessite 


agora de toda a capacidade que os de 16 bits 
oferece, mas também corre o risco de ficar 
desatualizado daqui a alguns anos. Para a h- 
nha Apple ainda dou mass uns dois anos de 
vida nessa concorrência, mas o Modelo TRS 
está entrando em declínio. Essa diferença está 
sendo determinada pela propria postura dos 
fabricantes dessas linhas” 

Temos que reconhecer que nessa questão 
podemos fazer previsões, baseados no desen- 
volvimento do nosso mercado e uté mesmo 
a partir dos rumos que a indústria de micros 
vem tomando nos Estados Unidos, mas asse- 
gurar qual será o destino dos micros TRS no 
nosso pais é quase impossivel. As previsões 
estão aí, as questões são essas e muitas outras, 
evidentemente. O resto... so o tempo dirá 


Apuração SP: Cláudia Ramalho e Stela 
Lachtermacher 

Apuração RJ: Denise Pragana, Graça Santos e 
Ricardo inojosa 

Texto final: Graça Santos 

MICRO SISTEMAS agradece de público a to- 
dos os que colaboraram nessa reportagem: sos 
usuários de micros TRS que participaram do 
debate, em especial Roberto Quito de Sant" 
Anna; sos fabricantes nacionais dessa linha de 
computadores; às lojas Clappy, Imarés, Com- 
puterland, Compushop e a software house 
Monk Micro Informática; e também ao De 
partamento de Processamento de Dados da 
Embrato! 
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SINTA NOS DEDOS ESTA NOVA 
CONQUISTA 


Já não é preciso escolher. Agora você tem o microcomputador DGT— 1000, com design moderno 
e novas incorporações que lhe conduzirão à decisão certa. 

O DGT-—1000 é modular e dependendo da sua necessidade ele se expande até um grande sistema. 
A DIGITUS lhe assegura a possibilidade de expansão do DGT—1000 


através das interfaces que comercializa: 


Interface printer, paralela para impressora tipo centronis. 
Interface para unidade de disco flexivel 5 1/4 (até 4 

unidades de 184 KB cada). 

Expansão de memória até 64 KB. 

Interface colorida com alta resolução gráfica. 

Interface RS 232. 

Sintetizador de voz. 

Sistema operacional DGP/M totalmente compatível com 
CP/M (com o DGP/M você poderá usar os famosos programas 
WORDSTAR e dBASE |). 
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Integração numérica 





Trazemos para vocês dois programas que executam 
integração numérica nos micros compatíveis com o ZX-81 (TK, 
NE, CP, Ringo e ÀS 1000). O primeiro baseia-se no método 
de Simpson e o segundo, por “Pontos Discretos”, 
dá a oportunidade de escolha do método a ser utilizado; 


Simpson ou Trapézio. Vamos a eles. 
+“ 





Método de Simpson 


Rogério lerusalimschy 


cia da função VAL em microcom- 

putadores compatíveis com o 
ZX-81, utilizando o método de integra- 
ção numérica por Simpson. 

Como este método é iterativo, ou se- 
ja, a função a ser integrada deve ser cal- 
culada para diversos valores de X, have- 
ria a necessidade de se colocar uma sub- 
rotina contendo a F(X) em uma deter- 


E ste programa ressalta a importân- 


Carregar o programa 
SIN (X) 


0 
PI/2 


15 (n impar 2?!) 


30 


minada linha do programa. Como no 
BASIC destes micros não existe a possi- 
bilidade de se programar uma função de- 
claração (como em FORTRAN, por 
exemplo) nem tampouco existe a ins- 
trução DEFFN, a melhor maneira de se 
contornar o problema é utilizando a 
função VAL. A função a ser integrada, 
F(X), é armazenada em uma variável al- 
fanumérica F$ logo no início do pro- 


DISPLAY (TV) 

ESCREVA A F(X) E APERTE NEWLINE 
ENTRE C/ O LIMITE INTERIOR 
ENTRE C/ O LIMITE SUPERIOR 
ENTRE C/ N (TEM QUE SER PAR) 
ENTRE C/ N (TEM QUE SER PAR) 
I =1 
DESEJA CALCULAR P/ NOVO N ? (S/N) 
ENTRE C/ N (TEM QUE SER PAR) 

= 1.0000034 


DESEJA CALCULAR P/ NOVO N ? (S/N) 
9/370 





Figura 1! — Para cada valor entrado ou calculado, haverá a respectiva impressão na tela. Assim, 
ao final do cálculo, haverá um completo registro de toda a operação. 


60 


grama e calculada através de VAL F$ 
tantas vezes quantas forem necessárias 
durante o processamento. 


Provavelmente alguns de vocês esta- 
rão pensando: Por que não usar a fun- 
çao GOSUB? Simples: usando VAL F$ 
ganhamos tempo duas vezes. Primeiro, 
não precisamos listar o programa para 
procurar pelo local reservado para a nos- 
sa função; em segundo lugar, o tempo 
de processamento é bem menor, já que 
o micro não precisa procurar pela linha 
da instrução GOSUB e retornar a esta. 
Além de tudo, o programa fica bem 
mais elegante e já entra rodando logo 
após o seu carregamento. 

Vamos agora a algumas considerações 
a respeito do método. Através do méto- 
do de Simpson podemos obter, com 
uma boa aproximação ou até mesmo 
com exatidão, a integral definida de 
qualquer função real. Para tal, precisa- 
mos entrar com a fórmula explícita para 
a função F(X), com os limites inferior 
(Xo) e superior (Xn) e com o número de 
intervalos (N), o qual tem que ser um 
número inteiro par. A partir daí, o valor 
da integral definida de F(X), de Xo a 
Xn, será calculado pela regra de Simp- 
son, ou seja: 


ph 
J F(X)dX = h F(X,) + 4F(X,) + 
ai 0 1 
X 


+ 2PLMS) É vãs 


2 


(Xn2) + 4P(X, 4) + a] 


+ 4P(X, ) + 2F 


23 
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Método de Simpson 


O REM **** PROGRAMA DE ROGERI 
O IERUSALIMSCHY. (1/1/1983)**** 

10 PRINT AT O, O; " NNE ESENSs 
O DE SIMPSON á 

20 PRINT AT 1,2;"=>ESCREVA A F 
(X) E APERTE<=";AT 3,10;"< NEWLI 
NE >" 

30 INPUT FS 

39 REM 11 ESPACOS EM BRANCO NA 
LINHA ABAIXO 

40 PRINT AT 3,10;" ” 
AT 1, 0; " qeaRaaa 
e 





50 PRINT AT 2,0;"P(X)=";PS 

60 PRINT AT 4,0;" 

70 PRINT AT 7,1;"=>ENTRE C/ O 

LIMITE INFERIOR<=" 

80 INPUT XO 

89 REM 30 ESPACOS EM BRANCO NA 
LINHA ABAIXO 

90 PRINT AT 7,1;" 

“ 


100 PRINT AT 7,1;"X0=";X0 

10 PRINT AT 9,1;"=>ENTRE C/ O 
LIMITE SUPERIOR<=" 

120 INPUT XN 

124 REM 30 ESPACOS EM BRANCO NA 
LINHA ABAIXO 

125 PRINT AT 9,1;" 

" 


130 PRINT AT 9,1;"XN=";XN 

135 PRINT AT 11,0;"=>ENTRE C/ N 
(TEM QUE SER PAR)<=" 

140 INPUT N 

145 IF N/2-INT (N/2)<>0 THEN GO 
TO 135 

147 REM 32 ESPACOS EM BRANCO NA 
LINHA ABAIXO 

150 PRINT AT 11,0;" 


onde 
X, “ Límite inferior 
X, = Límite superior 
X, *Xgt ihs dm 1,2 rece. n-1 
he x x 
n 


0 





n = Número de intervalos (inteiro par) 


Apesar de não haver grandes diferen- 
ças em termos de esforço computacio- 
nal entre os métodos de Simpson e dos 
Trapézios para o mesmo número de in- 
tervalos (as operações sao, de certa for- 
ma, semelhantes), o método de Simp- 
son fornece uma aproximação bem me- 
lhor, o que o torna mais eficiente e rá- 
pido que o método Trapezoidal. 

Para que vocês possam ter uma idéia 
melhor sobre o funcionamento do pro- 
grama, trazemos, na figura 1,0 procedi- 
mento para sua utilização, tomando co- 
mo exemplo a integral a seguir: 


í 

A figura 2 mostra como fica a tela 
após uma rodada, e a figura 3 relaciona 
tempo (T) e precisão de resultados (1), 
para diferentes números de intervalos 
(N). Observação: T é aproximado. 


/2 2 


"/ 
SEN(X)dX= - cos(x)] - COS 
0 


(5) - (-cos(0)) = 0 + 1 =1 
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155 PRINT AT 11,1;"N"=";N 

160 LET H=(XN-X0)/N 

165 PRINT AT 13,1;"H=";H 

170 REM METODO DE SIMPSON 

180 FAST 

190 LET X=XO 

200 LET ACUM=VAL FS 

210 LET X=XN 

220 LET ACUM=VAL FS+ACUM 

230 LET X=XO 

240 LET P=2 

250 FOR 1I=1 TO N-1 

260 LET X=X+H 

270 LET P=6-P 

280 LET ACUM=VAL FS*P+ACUM 

290 NEXT I 

300 SLOW 

309 REM 16 ESPACOS EM BRANCO NA 
LINHA ABAIXO 

310 PRINT AT 16,4;" 

320 PRINT AT 15,0; "TETRA 
a 

330 PRINT AT 16,1;"I= ",ACUM*H/ 
3 


340 PRINT AT 17,0; “Gl 
ia * 


350 PRINT AT 20,0;"DESEJA CALCU 
LAR P/ NOVO N? (S/N)" 

360 IF INKEY$="S" THEN GOTO 390 
370 IF INKEY$="N” THEN STOP 

380 GOTO 360 

389 REM 32 ESPACOS EM BRANCO NA 
LINHA ABAIXO 

390 PRINT AT 20,0;" 

400 GOTO 135 

500 SAVE "SIMPSON" 

510 GOTO 10 





METODO DE SIMPSON 


F(X)=SIN X 


X0=0 
XN=1.5707963 
N=30 
H=.052359878 








Figura 3 


Rogério lerusalimschy é estudante de Enge- 

nharia de Telecomunicações na UFF, onde 
cursou FORTRAN, Cálculo Numérico, Micro- 
processadores e Computadores digitais. É pro- 
fessor de BASIC na Microcenter e na UFF. 
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GLOBUS 


Alta performance 
para sistemas de 
processamento 
de dados. 


impressora M-180 





Impressora matricial de impacto com 
velocidade de 180 cps. 
Projetada para servir como periférico 
a qualquer sistema de 
"processamento de dados. 
Desenvolvimento Globus, 
utilizando-se de tecnologia de ponta 
em impressoras matriciais. Grande 
flexibilidade de software, com 
operação fácil e performance 
garantida. Além de todas as 
interfaces disponíveis, é compatível 
com sistemas IBM. 


Impressora M-340 X 





Impressora matricial de impacto com 
velocidade de 340 cps. 


A M-340 X é a nova designação da 
M-200. Esta é a impressora matricial 
mais rápida disponível no mercado. 
Devido a sua alta performance e 
confiabilidade tem merecido a 
preferência para utilização em 
sistemas de processamento de 
dados. Possue interface para sistema 
IBM. A Globus produz linha completa 
de impressoras para todas 
aplicações, além de dispor de peças 
de reposição para entrega imediata. 


2) 
= GLOBUS DIGITAL S.A. 


EQUIPAMENTOS PERIFÉRICOS 


MUITO MAIS DO QUE MÁQUINAS 
SIGNIFICA SERVIÇO 


Matriz e Fábrica: Rua Isidro Rocha, 1057 

CEP 21241 - Tel.: 372-4385 - Telex (021) 31991 
GLDG - BR - Vigário Geral - RJ - Brasil 

Filial; Rua Stella, 515 - Bloco H - Grupo 21 
CEP 04011 - Tels.: (011) 231-2586/571-4642 
Telex (011)38688 - GLDG - BR 

Vila Mariana - São Paulo - SP 


VASTA REDE DE DISTRIBUIÇÃO 


Policom/ZEZ 


EEE 


TODA A LINHA 

DE MICROS E 
MINICOMPUTADORES 
A informação nas pontas dos seus dedos 


Gerenciador de | Automação 
banco de dados |de escritórios qui 
dBASE 


Requerimentos do 













= ="NTSM 
| 3] a Ih 
EDISA 
A solução lógica 








Sistema: 
Sistemas operacionais: | UU (Microprocessadores 8080, 
MS-DOS (IBM-PC) CP/ 8085, ZB0, 8086, 8088) 
M CP/M-86 CROMIX | 1 64K p/ CP/M; 128K p/ CP/ 
CDOS MP/M MP/M-86 | M-86 ;º MS-DOS; 56K p/ 
[J Cursor endereçável | 72 Disketes c/ mínimo de 
para o uso de funções 126K cada 
fuliscreen. [D Terminal c/80 colunas e 

cursor endelecável 

O impressora com no mini- 
mo 80 colunas. 
Dismac (sério 8.100) Microdigital (TK's 83/85/2000) 
CP's 200/300/500, impressoras, elébra, elgin, dismac 
Microengenho | e ll e Apple-Tronic 



























20021 — Rio de Janeiro — Tel.: (021) 221-3069 


TRANSFORME A SUA 
MÁQUINA DE ESCREVER 
OLIVETTI ET 121 
EM IMPRESSORA 
DE COMPUTADOR 





Com a Interface da DW 121 sua máquina 
de escrever OLIVETTI Eletrônica ET 121 
se transforma em uma impressora de alta 
qualidade para textos ou programas, sem 
alterar as características originais da má- 
quina. 

Instalado internamente a Interface conta 
com um buffer de 2K bytes e uma série 
de comandos especiais para a confecção 
de textos, tais como: sublinhamento au- 
tomático, negrito automático, compri- 
mento de linha programável e outros, po- 
dendo ser acoplado a qualquer tipo de 
MINI ou MICRO COMPUTADOR que te- 
nha saída SERIAL RS 232C/Standard ou 
Paralela 8 bits Centronics. 





Solicite maiores informações a 


Daisy LUHEEL eletrônica 


INDÚSTRIA E COMÉRCIO LTDA. 


Uma Divisão da ESFEROMAC Ltda. 
Rua Antonio Comparato, 200 

Tels.: 5320154 e 240-4829 
CEP 04605 São Paulo — SP 








INTEGRAÇÃO NUMÉRICA 





Pontos Discretos 


Carlos Alberto Mattana 


requentemente, nas experiências 
F sinais com Física, Matemá- 

tica e Engenharia, precisamos cal- 
cular a integral definida de uma função 
da qual conhecemos apenas os limites de 
integração e seus valores em pontos 
equidistantes entre os limites. Para cal- 
cular um valor aproximado para a in- 
tegral, podemos usar dois métodos, co- 
nhecidos como regra de Simpson e re- 
gra do Trapézio (mais informações sobre 
eles podem ser encontradas em qualquer 
livro de análise numérica). 


Para facilitar este cálculo, este pro- 
grama permite utilizar ambos os méto- 
dos. Foi escrito em BASIC para o 
TK82 mas poderá ser adaptado para 
rodar em qualquer outro micro. 


Vamos analisar um exemplo de apli- 
cação. Suponhamos que queiramos cal- 
cular a integral de uma função F(X) en- 
tre os limites de integração a=0 e b=5, 
conhecendo os seguintes valores para 
F(X): F(0)=-1; F(0.5)= 0.675; 


F(1)=1; F(1.5)= 4625; F(2)-l1; 
F(2.5)=20.875; F(3)=35; F(3.5)=54. 
1Zs; F(4) =79; F(4.5)=110.375; 
F(5)=149. 


Após a digitação do programa e de- 
pois de pressionar RUN, aparecerá na 
tela o nome do programa e um pedido 
para a entrada do intervalo H entre os 
pontos X. Devemos então escolher qual 
o método a ser utilizado. Digitamos os 
valores de F(X) um a um, obtendo as- 
sim uma aproximação para a integral. 
No nosso exemplo, a integral vale apro- 
ximadamente 194.6875 empregando a 
regra do Trapézio, e 193.66667 usando 
Simpson. 


Carlos Alberto Gomes Mattana estuda Física 

na PUC/RJ e é programador da Ajax Cia. 

Nacional de Seguros, trabalhando com a lin- 

guagem MUMPS em um Medidata M-2001. 
também usuário de um Apple Il. 





Pontos Discretos Ê 











1 LET N=1 
2 LET S=0 
3 LET SP=0 
4 LET AS="REGRA DE SIMPSON" 
5 LET B$="REGRA DO TRAPEZIO" 
7 PRINT TAB 6;" INTEGRACAO NUM 
ERICA";TAB 6;"POR PONTOS DISCRET 
os" 

9 PRINT AT 3,0;" INTERVALO ENT 
RE OS PONTOS?" ; 

11 INPUT H 

13 PRINT ,"H=";H 

15 PRINT AT 6,0;A$S;" —- > SIMP"; 
AT 7,0;B8$;" -> TRAP"; 

17 INPUT CS 

19 IF CS="SIMP*" THEN GOTO 53 

20 PRINT AT 7,25;CHRS 151; 

21 PRINT AT 9,0;"F(X";N-1;")? 


23 INPUT FX 
25 IF N=1 THEN LET FO=FX 
27 LET S=S+FX 
29 PRINT AT 9,0; "OUTRO PONTO? 
(S/N)" 
31 INPUT TS 
33 IF T$="Nº THEN GOTO 39 
35 LET N=N+1 
37 GOTO 21 
39 LET I=H*(S*2-F0-FX)/2 


41 GOTO 81 
53 PRINT AT 6,25;CHRS 151 
55 PRINT AT 9,0;"F(X";N-1;")? 
























59 INPUT FX 

61 IF N=1 THEN LET PO=FX 

63 IF N/2=INT (N/2) THEN LET S 
=S+PX 

65 IF N/2=INT (N/2) THEN LET S 
P=SP+PX 

67 PRINT AT 9,0;"OUTRO PONTO? 
(S/N)" 

69 INPUT TS 

71 IF T$="Nº" THEN GOTO 77 

73 LET N=N+1 

75 GOTO 57 

77 LET 1=H*(4*5S+2*SP-P0O-FX)/13 

79 LET BS=AS 

81 CLS. 

83 PRINT TAB 6;" INTEGRACAO NUM 
ERICA";TAB 6;"POR PONTOS DISCRET 
os" 

85 PRINT AT 3,8;BS 

87 PRINT AT 5,0;"N=";N;AT 7,0; 
“H=":H 

89 PRINT AT 9,0;" INTEGRAL -> " 
8 

91 STOP 


= 
e 
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A Clappy tem tudo 
“pravocêlevar o 
computador certo. 





Ut Tn 
Na Clappy, além de você encontrar a melhor solução para | rr m, 
o seu problema, você encontra também assistência técnica ||| A 4 ] 
própria, cursos de programação e operação, consultoria, | nn 
“softwares”, periféricos, suprimentos e a 
implantação de sistemas aplicativos 
comerciais e de apoio à decisão. 
















APLICATIVOS COMERCIAIS ins 
Contabilidade 

Controle de estoque 

Folha de pagamento 

Contas a pagar ea receber | 
Além de qualquer outra solução que . pr ; 
a Clappy pode desenvolver para você. 


APLICATIVOS DE APOIO A DECISAO 
Planilha Financeira 
Processamento de textos 
Mala Direta 

Cadastro de Clientes 
Controle Financeiro. 


W///// 


AP Il - Clappy N 
CPU com 64 Kbytes, placa CP/M, 
2 drives, monitor de vídeo 
Instrum e impressora de 

100 cps. 37 ORTNs mensais* 


* Taxa de leasing em 27.02.84 





Av, Rio Branco, 12 loja e sobreloja 
Tel.: (021) 253.3395 


Venha à nossa lojaou solicite a visita 
de um representante. 





unitron 


CENTRO: 

Rua Sete de Setembro, 88 - loja O (Galeria) 
Tels.: (021) 222.5517 - 222.5721 
COPACABANA: 

Rua Pompeu Loureiro, 99 Tels.: (021) 257.4398 - 2368.7175 

Aberta diariamente das 10 às 20 horas e aos sábados das 10 às 15 horas. 
Estacionamento próprio. 





mm— e SS 














Conheça o perfil de sua dívida doméstica e adote estratégias eficientes 
para o trinômio renda/poupança/consumo em seu micro da linha TRS-80 








Orçamento doméstico 


ma das tarefas mais ingratas 
a se realizar em tempos de 
dinheiro difícil é o controle 
do orçamento doméstico. 
Colocar ordem no caos das finanças 
pessoais às vezes pode ser tão 
complicado que se torna preferível 
continuar na ignorância de como os 
gastos se distribuem segundo os itens 
de consumo, diversão, investimentos, 
poupança, dívidas, etc. 
Um controle orçamentário eficiente, no 
entanto, é a mola-mestra de qualquer 
organização que se preze, e o lar não 
pode ficar à parte dessa consideração. 
E para fazer este controle de orçamento 
de maneira eficaz, nada melhor do que o 
microcomputador. 
Quando se conhece o perfil da dívida 
doméstica, pode-se então adotar uma 
série de estratégias eficientes para o 
trinômio renda/poupança/consumo, 
redimensionar os gastos segundo 
prioridades reais, bem como evitar 
despesas supérfluas. 
Um controle de contabilidade doméstica 
não necessita ser tão sofisticado a ponto 
de afugentar qualquer pessoa menos 
afeita às minúcias do gerenciamento 
contábil de uma empresa de grande 
porte. O mais importante é manter sob 
controle alguns itens padrões de gastos, 
os quais são utilizados como parâmetros 
para se levantar o perfil da dívida 
doméstica. 
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Luiz Gonzaga de Alvarenga 





Controle de Orçamento Doméstico 





10 
20 
30 
40 


“ 
4 


RCO 


GoToOso 
FORE=1TO3O0O:NEXTEPRINTIÇII,M 
PRINTO9I3I3,ENTER”; 
LS$=INKEYS:IFLE="“THENQUELSECLSSRETURN 
"CONTROLE DE ORCAMENTO DOMESTICO 


- LUIZ 6. 
1283]. 


60 DIMYC5,5) 
/0 J=1 
80 CLS 
90 Y=21:FORX=0TOL27ESLTAX, Y) 2 NEXT 


100 
110 
120 
130 
14U 
150 
160 
170 
180 
120 
200 
210 
eo 
es0 
24U 
Pa à) 
26U 
270 
280 
29u 
JUU 
310 
320 
330 
340 
350 


Y=28:FORX=0TO427:SET(X, Y)2NEXT 
PRINTCHRSCZI) À 

PRINTJOScCo,  ORCAMENTO DOMESTICO”; 
FORX=1T04000:NEXT 

CLS 
FORS=1105:FORI=DIOS:READADCS, T):NEXTT,S 
INPUT“ Quer instrucoes (9/N)“;XXb 
IFXx$-“STHENLZ6O 

INPUT“ Quer lcr arquivo de dados (5/N)“s;LLS 
IFLL$<.27S“ IHENZ90 


"52 FORE=1 10100:NEXT 


DE ALVARENDÃ. MA 


PRINTYPREPARE O CASSETE E DIGITE 6072 INPUINN 


LH NN< 6UORNN) 60THENZOU 
CLS 

PRINT/LENDO DADOS...” 
FORB=1TOS 
INPUTH-S,RC<B),X<B) 
NEXTB 

INPUTH-=4,FFS 

GOTO1440 


CLS:INPUTOOrcamento referente ao mes de:“;hi gs 


CLS: INPUT “Qual a renda prevista”;l 
CLOSSPRINICLISTA DE DESPESAS”; 
FORD=1TOSFPRINISPRINTADCD,D, NEXT 

PRINT 

FORI=1105 

PRINTO(SIGA A NUMERAÇÃO DOS ITEMS) TIPRINT 


50797 


3oU 


INPUT“Entre com o numero” salio» 


JILM ANILKRLONIY 
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OBJETIVO 





O programa aqui apresentado tem como 
objetivo permitir levantar o perfil de 
uma dívida doméstica segundo itens 
padronizados, comuns à grande maioria 
das pessoas de classe média. Isso porque, 
em geral,a receita provém unicamente 
de um salário percebido, o que torna 
interessante detetar os itens mais 
sujeitos a provocar déficits no 
orçamento. 

Com ele, pode-se fazer uma previsão 
antecipada dos gastos do mês e, 
posteriormente, confrontar esta previsão 
com os gastos efetivamente realizados. 
Os itens utilizados são formados por 
subitens que cobrem toda a gama de 
despesas domésticas. Cada item possui 
subitens que são comparados 
percentualmente com a renda prevista; 
são apresentados também subtotais 
parciais e subtotais acumulados. Além 
disso, uma listagem completa pode ser 
pedida a partir dos itens ou subitens. 





GASTOS EM GRÁFICOS 








O programa apresenta, também, um 
gráfico em barras, o qual permite uma 
fácil e eficiente visualização da 
distribuição dos gastos domésticos, o 
que é útil para se localizarem os itens 
de maior peso no orçamento. 

Foi prevista a gravação (em fita cassete, 
para arquivo) unicamente dos itens 
principais de controle, pois é por sua 
comparação que se pode prever e 
controlar a evolução da dívida 
doméstica. 

O progama Controle de Orçamento 
Doméstico — é auto-elucidativo e não 
oferece dificuldades quanto ao seu 
processamento. Não se cogitou incluir 
cálculos utilizando variáveis de dupla 
precisão, entre outras razões, pelo 
pequeno número de zeros da maioria 
dos salários... 

A gravação e leitura dos dados é feita 
em pouco tempo. Como cautela, devem 
ser usadas fitas de boa qualidade, com o 
que se poderá evitar a introdução de 
erros durante a gravação. 





Luiz Gonzaga de Alvarenga é técnico de Tele- 
comunicações e trabalha na Embratel, em 
Goiânia, onde reside. 
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370 LFACI)CIORACI)PSTHENIOU 

380 CLS 

390 PRINTASCACI),O0) 

400 FORQ=1TOS:PRINT:PRINTASCACI),0)2NEXTZPRINT 

410 PRINT“Entrada de valores?” 

420 INPUTOC(S/N)V;RS 

430 IFR$(>2757 THENCLS:60TOI4ÍU 

440 CLS 

450 FORQ=1TOB:PRINTASCA(CI),0) 

460 INPUT Quantiaz”sYc(I,Q) 

470 PRINT“Valor correto (5/N)”; 

480 INPUTES:IFES=7S"THENCLS:GOTOS00 

490 1FEG="N“THENCLS:6G0TO46U 

500 L=L+Y(1,6) 

510 V=V+Y(I,Q) 

520 R(1L)=V 

530 nEXTO 

540 PRINTIS03, RENDA Cro ;BEPKINTISSO, SUBTOTAL ACUMULADO: C 
r$“ sL:IFLIBTHENPRINTOS693, “EXCESSO ELSESSO 

550 PRINTU/2S, SUBTOTAL PARCIAL: CUr6UzXCI)=-INTOCV/B) Ri U0)SZ- 
Z+X(1)2IFX(I)S100OTHENPRINTO/57, CEXLESSOVELSEPRINTOZ5S, XL) A 
460 INPUT COutro item (S/N) ;DGI0-041 2 IFO=SSTHENUCU LEGBOTOSSU 
570 W=B-L ; 

s8B0 1IFD$<)“S THENHSSU 

590 V=0 

400 CLSINEXTISGOTOSLU 

610 Dália “4 TAXAS PUBLICAS”, AGUA, LUZ, TELEFONE, GAS, IMPOSTOS 
õe0 DATA “2 GASTOS C/LMOVEL”, PRESTACAO, ALUGUEL, CONDOMINIO, CO 
SERTOS, KELIF ORMAS 

430 DATA “3 UASTOS FIXOS”, ESCOLAS, LOJAS BANCOS, CLUBES MLSADA 
5 
640 DATA “4 UAS10S DIVEKLOS”, GASOLINA/TKANSPORTE, SUPER -MERCA 
DO/FEIRA, FERIAS /VIAGENS/LAZER, JORNAIS /LIV. /REVISTAS, SERVICOS D 
QMESTICOS 


830 DATA “5 GAS IOS LVLNTUAILS”, ROUPAS/UNIF ORNLS, MATERIAL ESCO 


LAR,DESP. MEDICAS/FARMACIA, CONSERTOS DIVERSOS, NÃO ESPECIAL LCADO 
pn 
e. 


660 PRINt'Escolha relacao de itens” 

670 IMPUTRELACAO TOTAL Ci> PARCIAL (C2> AMBOS 432 4K 

BU IFKLLORKIITHENGSO 

690 ONKG0OT0/00,/00,B70 

700 [ORI=ÍTOU 

7/10 FORQ=1705 

720 PRINTASCACI),0),” Cr6r;YCI,O) 

730 HCIJ=INICC(X<(1)431)/400) 

740 NEXTQ 

750 IFI=3THENPRINTOS2S,“ TECLE <ENTERS PZ/CONTINUARO 2 GOSUB2U 
760 NEXTI 

770 IF J=1THENZIO 

780 PRINTIP2S,“TECLE <UNTER) PARA CONTINUAR "-GOSUBZU 

790 PRINI 

800 PRINTAIZS, “MES DE: “sFFD 

B1U FORI=Í/00 

820 PRINTASCACI),0),” CrSCGRCI), 

830 HCI)=INTOCX(1)94314)/400) 

S40 PRINTXCI)47 XY 

850 NEXTI:ZIFK=2THENS9O 

860 IF J=-160T0H80 

870 J=-J:60TO700 

880 PRINTÕ660," TOTAL PERCENTUAL: “;,Zs5"K” 

B90 IFLI)BTHENPODELSEPRINTISIZ, RENDA PREVISTA DESPESAS - Crbos 
W:G0T0940 

200 FH=(L-B):PRINTÕOSI2, DEFICIT DE ZCr6“FH 

910 INPUT“ Quer rever relacao de itens (5/N)“sT% 
920 IFTL="S“THENJ=1:6070660 

990 INPUT “Quer grafico em barra dos dados (S/N)“;0% 
940 IFG8<)"C“THENLÍZO ELSL9SO 

950 CLS 

9260 7=100 

9270 FORX=0T0O120:SET(X,44):NEXT 

980 FORY=0TO46:SET(LO,Y):NEXT 

990 PRINTOP4B,"T.PUBL. G.IMOV. G.FIX. G.DIV. 
1000 FORU=256TOBP6STEPS4:PRINTOU, Tp: T=T-1L0:NEXT 
1010 X=21 

1020 FORI=1ÍTOO 

1030 -FORY=43T0(43-H(CI))STEP-Í 

1040 SET(X,Y) 

1050 NEXTY 

1060 X=X+18 

1070 NEXTI 

1080 PRINTASO,“TECLE <dD> PARA TERMINAR”; 

1090 FORT=1T0300:NEXT:PRINTOBZ,” “;2FORT=1TOLD0O:NEXT 
1100 PRINTOB7,“d”; 

11410 IFINKEYS<)CHR$(64) THENLOPO 

1120 CLS: INPUT“Quer arquivar os dados (5S/N)”s;Z1gS 
4130 1FZ1í$%="S“THEN1140 ELSEEND 

1140 PRINT/PREPARE CASSETE E DIGITE 80” 

1150 INPUTF 


G.EVEN.”; 
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1160 IFF(<BOORF >BOTHENLÍSO 
4470 CLS 

1180 PRINT“GRAVANDO. ..”; 
1190 FORB=ÍTOS 

1200 PRINTH-L,R(B),XC(B) 
1210 NEXTB 

1220 PRINTH-L,FFS 


COLABORADOR! 1290 CLS 


1240 PRINTTERMINADA À GRAVAÇÃO 


Os Kits de Micro Chegaram! 


APPLEKIT - Kit de microcomputador tipo Apple? 


: , 1250 END 
Escreva um bom artigo sobre: 1260 CLS:PRINT“A finalidade deste programa e” a de ajudar a di 
dy minuir ou supri 
* Macetes de programação 1270 PRINT'mir possiveis de cits | orcamento domestico. Lom 
Dicas sobre seu equipamento ele, pode-se 
* Sistema operacional, etc. 1280 PRINT“controlar uma serie constante de itens, distribuido 


Ss segundo uma 
E envie-o para nossa reda 1290 PRINTOordem de gastos rotineiros. Cada item 
Os artigos aprovados se o sub-itens, os 
remunerados eos outros, y 1300 PRINTOquais cobrem toda a gama de despesas « 
E: 1340 PRINT 
devolvidos. Mas não se 320 PRINT“O prod cá 
1320 PRINTYO programa permite uma comparacao 
esqueça de mandar seu nome. os diversos i' 
completo, endereço e telefone. 1330 PRINT”tens, seja atraves de listagem dos val 
raves de gra 
1340 PRINTO? “TECLE <ENTER> PARA CONTINUAR” :GCOSUBZ 


VENHA FAZER | Gon 1350 PRINT' Fi ico em bas r as. Com esta comparacao, sera 
os itens 
NOTÍCIA CONOSCO! + 6 | R INT l ade e maior peso no orcamento. 


1370 PRINT 
dyliero , 13800 PRINTF inalmente, os dados pqderao st arq 

ta , para verifi” 
Sistem 1390 PRINT“cacao futura.” 
! 1400 PRINTAPOS6," TECLE <ENTER) PARA CONTINUAR G( 


180 
RIO: Rua Visconde Silva, 25 — Botafogo, 41410 CLS 
RJ, CEP 22281, tel.: (021) 286-1797 e. 1420 PRINT:PRINTOZS,“MES:”sFFS 
246-3839 1430 PRINT:FORI=LTOS:PRINTASCI,0),CrSC;RCLD,XCI)57% 
SP — Rua Oliveira Dias, 153 — RES: SO 1440 PRINT:PRINT/QUER VOLTAR AO PROGRAMA PRINCIPAL 
Jardim Paulista — SP, CEP 01433, 1450 INPUT/(5/N)“:6HS 
tel.: (011) 853-7758 e 881-5668. | 1460 IFGH$()“S“THENENDELSEZ9! 


E 
qa apeesaro ra microcontrol 
e um microcomputador Sistemas de Controles 


APPLEKIT completo. E Tels.: (011) 814-0446 e 814-1110 


São Paulo - Brasil. 











a tteitega ssa 


Informática & estão | | MORRA NNARR 
Administraça PRE 
ao seu alcance pt 7 


(Se você não quiser cortar sua revista, tire uma xerox do cupom abaixo) 








Assine 





nome 





empresa . 





profissão/cargo 


endereço para remessa .. 


cidade . . aa e ee STO 


APPLEKIT 65300 APPLEKIT 65400 


Assinatura anual 
[1 Informática & Administração... a “. Cr$ 20 000,00 


Cr$ 15.000,00 


Micro Sistemas ..... =. L obs 
[] Informática & Administração + Micro Sistemas. a ++» Cr$ 31.000,00 





Junte a estes dados cheque nominal à: 
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Aprenda alguns macetes de programação e dê uma injeção de velocidade 
no processamento de seus programas em BASIC 








Otimize seus programas 
em BASIC 


linguagem de programação mais 

comum que existe é, sem dúvi- 

da,o BASIC, simples na sintaxe 

mas com força suficiente para 
executar uma série de operações diferen- 
tes. Geralmente, porém, ele é lento na 
execução de programas. 

Um dos motivos é o fato de que a 
grande maioria dos tradutores BASIC 
está implementada através de interpre- 
tadores armazenados em memória ROM, 
os quais, em grande parte, não produ- 
zem código diretamente executável. 
Lembre-se de que o interpretador é um 
programa que executa as instruções de 
um programa-fonte, linha por linha, en- 
quanto que o compilador converte o 
programa-fonte como um todo, de lin- 
guagem de alto nível para linguagem de 
máquina. 

xistem muitos programas para res- 
solver um determinado problema; alguns 
podem ser mais rápidos que outros, al- 
guns necessitam mais memória que ou- 
tros, alguns sofrem mais facilmente mo- 


Ordem do 
determinante 


5 
10 
LE 
20 





599 
36287999 




















Figura 1 
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Esforço Tempo de 
computacional execução 





” Carlos Alberto Yamana 
E se re 


dificações. O programa ideal deveria ter 
todas essas qualidades, porém nem sem- 
pre se consegue obter um programa ideal: 
os fatores que o tornam ideal não são 
mutuamente independentes. Uma melho- 
ria na velocidade do programa quase 
sempre resulta em um aumento de me- 
mória utilizada; algoritmos elegantes são 
quase sempre difíceis de ser entendidos... 

Otimizar significa escolher a melhor 
solução. Assim, otimizar um programa 
de computador significa escrever um 
programa que tenha a maior velocida- 
de possível, ocupe a menor quantida- 
de de memória possível e que possa 
sofrer modificações sem muitas dificul- 
dades. Mesmo assim, com o crescente 
aumento da capacidade de memória dos 
micros, o aspecto de redução do uso de 
memória pode ser deixado um pouco de 
lado. Quanto ao aspecto da facilidade de 
um programa sofrer modificações, ressal- 
tamos aqui que muitos programadores 
buscam o inverso, a fim de impedir pos- 
síveis cópias. 





0,006 s 
3628 s 
62 anos 


154 milhões 
de anos 











Seno (SIN) 
Cosseno (COS) 
Tangente (TAN) 





Figura 2 


Desta forma, otimizar um programa 
em BASIC Interpretado significa, acima 
de tudo, aumentar a sua velocidade. Dis- 
cutiremos aqui algumas técnicas de pro- 
gramação que vão melhorar a perfor- 
mance de programas em BASIC quanto 
à sua velocidade. 





1 — A escolha do algoritmo certo 





Antes de pensar em aumentar a velo- 
cidade de um programa, devemos verifi- 
car se escolhemos o algoritmo certo para 
solucionar o problema. Um exemplo bas- 
tante eloquente é quando calculamos 
um determinante de uma matriz de or- 
dem n a partir de sua definição. | 

Consideremos como esforço compu- 
tacional o número de operações aritméti- 
cas envolvidas na execução de um algo- 
ritmo qualquer. O cálculo de um deter- 
minante de uma matriz de ordem n 
requer, a partir de sua definição, a exe- 
cução de n! (n-1) multiplicações e de 


tempo médio (milissegundos) 


+ 
Elevação à potência (Y+tX) 
Raiz quadrada (SOR) 
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n!-l adições, totalizando um esforço 
computacional de n!n-l operações arit- 
méticas. A figura 1 registra o esforço 
computacional e o tempo de execução 
das operações aritméticas, supondo, pa- 
ra simplificar, que as mesmas sejam exeçu- 
tadas à velocidade de 100ris (100x10s) 
cada. | 

Observamos que, na verdade, o tem- 
po gasto pelo computador é bem maior, 
pois apenas foram consideradas as ope- 
rações aritméticas. Há, no entanto, mé- 
todos de cálculo de determinantes (por 
exemplo, o de triangularização de Gauss) 
que consomem um curto espaço de tem- 
po. Isto significa dizer, que os exemplos 
demonstrados na figura 1, serviram ape- 
nas para mostrar que o tempo de progra- 
mação pode chegar a valores altos se não 
soubermos escolher o algoritmo certo 
para resolver um problema. 


2 — Operações aritméticas 


Cada operação artimética (adição, 
subtração, multiplicação, divisão e po- 
tenciação) necessita de um tempo fixa- 
do para ser feita. O conhecimento do 
custo de cada operação poderá ajudar o 
programador a escolher o melhor modo 
de construir suas operações aritméticas. 
Por exemplo, no caso da potenciação: 


TO X=Y**2 
demora mais que 
10 X=Y*Y 


Multiplicação é mais demorada que adi- 
ção; portanto, 


IO x=y+*2 
deve ser substituído por 

10 X=y+y 
Divisão é mais lenta que multiplicação; 
portanto, 

10 A=X/2 


demora mais que 


JO A=X*.5 


O tempo necessário para cada opera- 
ção depende de cada máquina. A figura 
2 mostra, por exemplo, valores relativos 
ao tempo médio de execução de algu- 
mas funções matemáticas incorporadas 
no micro HP-85. 





3 — Constantes x variáveis 





Quando usamos um interpretador, é 
preferível utilizar variáveis ao invés de 
constantes. Assim, 


I0 FOR J=0 TO N 
20 5=5+29343 
30 NEXT 9 


tem um tempo de execução maior que 


» P=29343 

10 FOR J=0 TO N 
20 S=5S+P 

30 NEXT J 
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Note que houve expansão de uma li- 
nha; porém, o que ganhamos em veloci- 
dade compensa o dispêndio de mais me- 
mória. O tempo poupado depende do 
número de dígitos da constante, do nú- 
mero de iterações e, se por acaso a cons- 
tante for uma função com argumento 
constante (por exemplo SIN 30), do ti- 
po da função. 





4 — Subexpressões comuns 





Uma subexpressão comum pode ocor- 
rer dentro de um programa e consumir 
tempo e memória. A seguinte sequência 
contém a subexpressão comum X+Y': 

TO M=X+Y+W 
20 N=R+X+Y 
mas uma outra versão poderia calculá-la 
somente uma vez: 
5 T=X+Y 


10 M=T+W 
20 N=R+T 


Dá para perceber que, embora a segunda 
versão seja uma linha maior, ela contém 
três adições, enquanto que a original, 
quatro. O tempo poupado depende, por- 
tanto, do número de subexpressões que 
podem ser substituídas. 





5 — Loop 





Procure remover expressões indepen- 
dentes do laço FOR-NEXT. Por exem- 
plo, no laço 


10 FOR I=1 TO 100 

20 A=A+B(T)*(X*X+3* 
X+2) 

30 NEXT 1 


a expressão (X*X+3*X+2) é calculada 
toda vez que o laço FOR é executado. 
Para maior eficiência, tais comandos de- 
vem ser recodificados da seguinte forma: 
5 C=X*X+3*Xx+2 
10 FOR 1=1 TO 100 


20 A=A+B(T)*C 
30 NEXT 1 


Cada execução de um laço FOR- 
NEXT necessita, basicamente, uma adi- 
ção, uma comparação e uma operação de 
desvio para a variável definida no FOR. 
Assim, O seguinte segmento de progra- 
ma 

10 FOR P=1 TO 100 


20 X(P)=K 
30 NEXT P 


deve ser recodificado para: 


10 FOR P=1 TO 99 
STEP 2 

20 X(P)=K 

30 X(P+1)=K+1 

40 NEXT P 


diminuindo o tempo necessário de cada 
iteração em 50%. É evidente que, usan- 
do esta mesma técnica, podemos reduzir 
gradativamente o tempo de execução, 
porém o nosso objetivo é apenas ilus- 
trar a técnica. 











1 CIÊNCIA MODERNA 
COMPUTAÇÃO 
A Unica Especializada em Livros 
e Revistas p/ Microcamputação 


* COMPUTE'S FIRST BOOK FOR VIC-20 [Computei  28490.00 


* 50 Outstanding PROGRAMS FOR THE VIC.20 
(Hatnell) 22 28000 


* GETTING ACQUANTED WITH YOUR VIC-20 
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OTIMIZE SEUS PROGRAMAS EM BASIC 


6 — Uso indevido de GOTO 


O uso indevido de GOTO pode oca- 
sionar dificuldades na hora das modifica- 
ções e no entendimento lógico do progra- 
ma. Um exemplo de mau uso de GOTO 
que ocorre frequentemente é: 

10 IP A>B THEN 30 
20 GO TO 40 


30 A=A+N 
40 


que deve ser mudado para: 


10 FF ASB THEN 30 
20 A=A+N 
30 


Uma simples reversão da lógica do 


comando IF... THEN aumenta a com- 
preensão e economiza tempo e memória 


do programa. 
7 — Matrizes 


Operações com matrizes são usadas 
em muitos programas. Por exemplo: 


10 POR 1=1 TO 10 
20 POR J=1 TO 10 
30 A(J,1)=3 

40 NEXT J 

50 NEXT 1 

60 FOR 1=1 TO 10 
70 AM(I,1)=2 

80 NEXT 1 


Neste exemplo, existem duas opera- 
ções na matriz A. Primeiro, cada elemen- 
to da matriz recebe o valor 3; depois, a 
diagonal A(1,1) a A(10,10) recebe o va- 
lor 2. Cada loop requer um número de 
testes até seu desfecho. Assim, a linha 
40 será alcançada 100 vezes, a linha 50 
dez vezes e a linha 70 também dez vezes. 
O segundo loop, no entanto, pode ser 
incluído no primeiro, reduzindo assim o 
número de testes. Além disso, vamos tro- 
car as constantes por variáveis: 


10 X=2 

20 Y=3 

30 FOR 1=1 TO 10 
40 FOR J=1 TO. 10 
50 A(J,1)=Y 

60 NEXT J 

70 A(T,I)=X 

BO NEXT 1 


CONCLUSÃO 


Existem muitas outras dicas que de- 
pendem do tipo e da complexidade do 
problema com que se está lidando. A oti- 
mização é, portanto, uma técnica que se 
aprende gradativamente. 

Outro aspecto a ser levantado é a pos- 
sibilidade de se escrever um programa 


em linguagem híbrida BASIC/Assembler, 
objetivando substituir os comandos mais 
lentos em BASIC por sub-rotinas Assem- 
bler, com consequentes ganhos na velo- 
cidade de execução de um programa. Pa- 
ra quem quiser aprofundar-se no assun- 
to, recomendamos a leitura dos livros ci- 
tados na bibliografia. 
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Mais de dez programas 
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o pontos, de tempo, Som por Software, DataFile, Merging, Renumber, Save Display, 
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GE rodada MS 











Você também acha que não é capaz de aprender telegrafia? Trate de 
mudar de opinião: o seu micro da linha TR$S-80 é agora o seu... 


Professor Picapau 


em microcomputação, cujos objetivos podem ser 

sintetizados em duas palavras: unir pessoas e idéias 
para dividir conhecimentos e experiências, característica da 
atividade radioamadorística. 

Durante as últimas edições de MS, temos publicado traba- 
lhos orientados para o radioamadorismo, ao mesmo tempo em 
que, através de chamadas, mala direta à LABRE, às suas 
seccionais e às principais entidades radioamadorísticas do 
Brasil, bem como através das faixas, solicitávamos a divulgação 
de nosso próximo lançamento. A resposta chegou materializa- 
da em dezenas de cartas, telefonemas e contatos via rádio, e 
assim resolvemos lançar a primeira RODADA MS, que, con- 
forme a reação dos leitores e principalmente as colaborações 
recebidas, evoluirá para uma seção permanente. 

A título de sugestão, estamos corujando aplicações para re- 
gistro de comunicados, confecção de QSL, transmissão/recepção 
de CW/RTTY, rastreamento de satélites, apuração de resultados 


ICRO SISTEMAS inaugura a RODADA MS, 
ponto de encontro para radioamadores ligados 


Roberto Quito de Sant'Anna 


de contestes etc., etc., para a linha Sinclair, Apple ou TRS-80. 
Todos os trabalhos serão apreciados, testados e, se x ne 
publicados com os devidos créditos ao colaborador. Às entida- 
des radioamadorísticas solicitamos também o envio regular de 
seus Boletins Informativos. 


Mesmo sob o risco de omitir alguma referência, quero res- 
saltar o incentivo recebido de vários companheiros e entidades, 
citando-os na ordem em que me vêm à memória: PY3IY-PivattO 
(DS/RS), PY1EWN-Ron (CWRJ), PY10Z-Paulo (DS/RJ), 
PY2AC-Alfredo (DS/SP), PY2DRD-Rodrigues, PY1BCN-Ma- 
chado, PY1BGN-Flávio, PY1FO-Évio e PYIAFA-Gil (AN-EP), 
dentre muitos outros. 


Agradecendo qualquer contestação ao nosso CQ, sintoniza- 
mos a frequência da RODADA MS! 
PY1DWM-Quito 
PS: para troca de idéias, posso ser encontrado quase que dia- 
riamente na Patrulha da Madrugada, em 7055 KHz, a partir das 
22.00 PY. Quem sabe poderíamos criar a Rodada do Micro?... 


O O O 





Como a maioria dos colegas, desde 
que obtive o meu primeiro indicativo, 
em 1965, sempre pensei que telegrafia 
era uma coisa difícil e que, apesar das 
noções básicas adquiridas por força 

de minha formação profissional, jamais 
seria um praticante dessa excitante 
modalidade de comunicação, na qual, 
de resto (lamentavelmente, como a 
maioria dos radioamadores), não via 
nenhuma importância. O fato é que, 
após cerca de 15 anos de intensa 
atividade, graças a PYIBDU-Walter — 
a quem devo uma boa parte de 
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minhas vitórias como radioamador — 

e a PY1BGI-Adolpho que, numa noite, 
em uma inesquecível rodada juntamente 
com PY1BQJ-Julio, com infinita 
paciência, mostrou-me o caminho das 
pedras, finalmente resolvi aderir ao 

CW, entrando nas subfaixas. 

A partir daí, com a prática assídua, 

a colaboração dos radioamadores de 
todo mundo, cujo maior prazer é atender 
imediatamente aos PSE QRS dos 
novatos, e graças ainda à maravilhosa 
acolhida no CWRJ proporcionada por 
PY1EWN e PYIBVY, iguais no nome 


— Ronaldo — e no entusiasmo, ficou 
definitivamente consolidada a 

minha preferência pelo Picapau. 

No que diz respeito à importância 

do CW, remeto o leitor às páginas 

de AN-EP, em busca dos brilhantes 
editoriais de PYLAFA-Gil e artigos de 
vários abnegados colaboradores, assim 
como às revistas especializadas de 
todo o mundo. Quanto à dificuldade, 
ela existe de fato em maior ou menor 
grau, mas é grande o número de 
companheiros que, de alguma forma. 
procuram minimizá-a, 
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aos quais me associo agora. 

Este trabalho foi realizado tendo 

em vista ajudar tanto aqueles que 
pretendem praticar efetivamente o CW 
quanto aqueles que querem apenas ser 
aprovados nos (cada vez mais rigorosos) 
exames de promoção às classes B e A 

(e depois jogar o manipulador no ponto 
mais profundo do oceano, HI!), além 
de servir também para aumentar a 
proficiência dos já praticantes que ainda 
estão na faixa de dez palavras por 
minuto (ppm) ou, ainda, como meio 
auxiliar para aulas em grupo. Com 
pequenas modificações, poderá ser 
usado por um instrutor para transmitir 
qualquer texto desejado em vez de 
caracteres aleatórios ou até 

mesmo manipular diretamente o 
transmissor, via relé do motor cassete 
(o que não aconselho), ou através da 
porta do cassete, via pequena interface, 
transformando o seu micro em um 
teclado, ainda que de relativamente 
baixa eficiência. Estou inteiramente 
QRV para discutir o assunto. 


ENFRENTANDO A 
BARREIRA DO SOM 


O programa foi escrito para os micros 
da linha TRS-80 Modelos I e III, com 
ou sem drive. Embora extenso, é 
razoavelmente simples, bastante 
estruturado e com uso extensivo de 
sub-rotinas. A maior dificuldade na sua 
confecção foi devida à, no meu entender, 
maior limitação da linha TRS-80, que 

é a ausência de comandos específicos 
para a geração de som. Como meus 
conhecimentos de linguagem de máquina 
ainda deixam a desejar, optei por 
vasculhar a bibliografia especializada 
disponível em busca de uma rotina.de 
som apropriada, ao invés de tentar 
reinventar a roda. 

Após muitas tentativas e outras 

tantas frustrações, a solução veio 
através de Leo Christopherson 
(considerado, nos EUA, o Walt Disney 


« Linha 80 — leitura, nas instruções 
DATA 640-680 e na 


correspon: 

ASCII 44 a 90, exceto os de 

58 a 62 e 64 (ver manual da Prológi- 

ca, apêndice C); notar que, em cada 

» 1 corresponde a.um traço 

e O aum ponto (DIT), - 

to que os códigos excluídos são repre- 
sema viro 

- Linhas 90-110 — definição das men- 


Ra 
: 140-150 — leitura e confe- 


que 
a string ZZS da linha 80, a 
DATA 650 e o laço da linha 110. 
- Linhas 230- e conferén- 
cia dos da rotina de 
som, nas DATA 760-800. 
- Linhas 270-300 — abertura do pro- 
Ra en ca caracteres grá- 
e transmissão simultânea em 
CW do texto DE PYIDWM; prote- 
ção das duas linhas da tela. 


da animação no TRS-80), em seu 
artigo Celestial Music (Creative 
Computing, março/82), do qual a 
rotina de som das linhas 180-250 foi 
integralmente copiada, com o 


são: intervalo entre caracteres (ICAR), 

intervalos entre pontos e traços (ID), 

do ponto (DIT) O método usado pá 
o a 

ra detaenilhação 


usado pa- 


ro de grupos pelo tempo de transmis- 
são — um Em Ren tecontoa, 
mas o sea - 
ma da realidado. Pr 

dg: 450-480 — seleção randômi- 
ca pra cega apiegimes ii 
forme a opção desejada: só algari 

(de 48 a 57), só letras (de 65 a 90) 
ou letras + algarismos + pontuação 
Do eta DO ação a POA 


. Linhas 500-550 — dos ca- 
racteres 1 e O da string AS escolhida 
e encaminhamento à sub-rotina de 
transmissão de um caráter tel 


da linha 820. Teste e cho rm 
S para interromper à " 
- Linha 560 — teste se já foram com- 
pletados 20 grupos. 
- Linhas 840-900 — sub-rotina para 
transmitir DE PYIDWM na abertura 
do programa. 
amado dr ge torne ro 
as mensagens piscantes (ver 
M$ número 


Pisca 
a a 





devido conhecimento de Leo, conforme 
atesta correspondência em meu poder. 
Não estranhe a instrução LP da 
linha 820 — ela substitui uma instrução 
USR, uma vez que o endereço da rotina ê 


05 ANJOS DA GUARDIAN 


Proteção integral para o seu Micro 


Estabilizador Eletrônico 
mini 


da rede em até + 22% 
estabilizando-a em + 1%. 
idade 


de 
025.04,06,08 
CTKVA 





Gerador Eletrônico 


Quando a rede elétrica faltar, GERATRON 
continuará alimentando o seu micro como se nada 











NO=BREAR 


Linha Especial para Micros 
Proteção completa para o seu micro, 
mantendo a alimentação altamente 
estável e sem interrupção. Forma de 
onda senoidal Capacidades de 0.25, 04, 
06,1,15,25.35€5KVA Opera com 
quatro baterias comuns de 12 volts 


GUARDIAN 


EQUIP. ELETRON. LTDA. 


R. Dr. Garnier. 579 - CEP 20971 - Rocha -Teis.: PABX (021) 261-6458 - Direto 201-0195 - Telex rê (021) 34016 - Rio de Janeiro - RJ 
Representante São Paulo - Tel.: (011) 270-3175 - Representantes em todas as capitais 







PROFESSOR PICAPAU 


























C=0:FOR T=1 TO SOO:;NEXT:'*====INTU ENTRE GRUPOS 
ON NR GOTO 450 ,460 ,470 

"exe exIMPRESSÃO DOS GRUPOS 

CLS:PRINT:LPRINTIFOR I=1i TO 96 STEP 5 

FOR II=I TO I+4:PRINT C$C(I1);" "ELNEXT 

PRINT " “,INEXTIAS=A1$:GOSUB 1040 :CLS:GOTO 320 
DATA 110011,10001,010101.10010,11111,01111 

DATA 00111.00011,00001,00000,10000,11000,11100 
DATA a 

DATA 

DATA 0110,1101,010,.000,1.001,0001.011.1001,1011,1100 
DATA 1,9.,6.12,13,18,19,.28,29.,.40,41,47.48,55,96,62 
DATA 128,176,144,144,144,129,129,129,144,128,128 


DATA 128,144,176,144,176,144,144,122,128,128,176 

DATA 144,144,176,144,176,144,128,1289,128,144,176 TECNOLOGIA 
DATA 144,176,144,176,144,176,144,128,128,128,176 IÉ LA 
DATA 144,144,144,128,128,128,144,176.144.176,144 EFIC NC 


DATA 128,128,128,1/6,.144,176,144 
DRT* SERIEDADE 


33.1.1.243,62,1.8,.62,35,61.190.32.2.251,201 Ê 


Professor Picapau 


de som, contida na string SS, foi 
POKEado nas posiçoes 16422/23, que 
contém o endereço do vetor LPRINT. 
Se você dispõe de impressora, deixe-a a h 
desligada para utilizar o programa. EETEITEZTEZIZSrISI2cIsscacrsss=s====]3= 
Em alguns micros da Prológica, com PYLDWN-ROBERTO QUITO DE SANTANNA 
amplificador de som instalado na BOX 24039 - 20522 - R JANEIRO-RJ 
Do do O DEFINT A-ZICLEAR 1000:DIA CS(100), MI (B),M2(8).68(47) 
Ep nd mpg cog ng 80 CLS:FOR I=1 TO 47:READ G$(1):NEXT:Z$="":Z28="DEPYIDUNN 
do amplificador. Se este for o seu caso, 90 A1$="APERTE QUALQUER TECLA PARA CONTINUAR! 

a ligação de um amplificador externo 100 AZ$="ERRO DE ENTRADA - VERIFIQUE DECLARACÕOES DATA 


ra: 110 AZS=evE £ * TRANSMITINDO ==! 
resolverá o problema; para comprovar O 120 FOR I=1 TO S:READ MICI)DIREAD N2CT) NEXT 
perfeito funcionamento da rotina de 


130 PRINTE 15,"P RUFESSOR PICAPAU" 
som, grave uma fita e ouça-a em seguida. 140 FOR I=1 TO 62:READ Vi T=T+V:Z$=2$+CHR$CV) NEXT 
O programa está fartamente 150 IF T<>9056 CLS:A$=A2$+" 700-750":GOSUB 1040 :CLS:END 
documentado pela utilização de várias 160 "**==*ROTINA DE SONz==** 
instruçoes REM e seu uso não oferece a 170 "ATENCAO: A 'STRING” ABAIXO DEVE TER 70 POSICOES 
menor dificuldade, graças aos diversos 180 S$="///////44 .. «preencha com 70 simbolos. ..///////40 
menus explicativos. O operador pode 190 NM=VARPTR(S$):SiI=PEEK(NN+1):S2=PEEKCNN+2) 
solicitar a transmissão de 20 grupos de 200 S0=81+254*52:POKE 16422, S1:POKE 16423,52 
cinco caracteres escolhidos 210 A$="12":MM=VARPTR(AS):AI=PEEKCNM+HI) 
aleatoriamente (somente letras, somente 


220 AZ=PEEK(MM+2) CAD=AI+2S56*AZ:T=0 | 
+ aloariemos + 230 FOR 1=0 TO 69:READ Vi T=7+V:POKE SO+I,VINEXT E, 
prin peter a a 240 IF T<>5917 CLS:A$=A28+" 760-800":GOSUB 1040 :CLS:END 
(5,6,7,9,11 e 14 ppm); após a 


250 POKE AO+1,100 
transmissão, os grupos aparecem na 


260 '**===ROTINA DE ABERTURA 
- a 270 FOR I=1 TO 2:PRINTE 64, STRING$S(63," ")FIPRINTE 64,0"; 
tela para conferência pelo tempo que o 
operador desejar. 


280 FOR M=1 TO S:GOSUB 1250 :Z1$=NIDSCZZS.M.1)IZ=ASC(ZLS) 
290 GOSUB 840 :NEXT MN 

Toda comunicação com a máquina é 300 FOR Il=1t TO SO:NEXT IL:NEXT IIPOKE 16916,2 

feita pelo sistema de acionamento de 310 '***<sENTRADA DA ROTINA DE TRANSNISSAO 

uma única tecla, sem necessidade de 

<ENTER>e, para interromper a 


320 FOR I=1t TO 100:C$(1)="";NEXT:0=0:C=0 
transmissão a qualquer momento, basta 


330 GOSUB 920 «IF NR=4 GOTO 440 

340 CLS:GOSUB 1120 :CLS:PRINTE 525.A3$ 
digitar <S>. O trabalho de digitação 
do programa foi bastante simplificado 


Z50 PRINTE 780,"PARA INTERROMPER À TRANSMISSÃO TECLE <S>" 
340 ON VEL GOTO 370 .380 .,.390 .400 410 «420 

através da utilização de rotinas de 370 ICAR=300:1D=100:DAH=9:DIT=3:GOTO 430 

conferência da se de valores 380 ICAR=300: 1D=50:DAH=9:DIT=3 : GOTO 430 

numéricos (checksum ) introduzidos 390 ICAÃR=100; 1D=50:DAH=9:DI T=3: GU fO 430 

em instruções DATA, com emissão de 400 ICAR=100: ID=50:DAH=6:DIT=2:60T0 430 

tenso do ádvertincia eli CSS 410 ICAR=100:1D=10:DAH=3:DIT=1:60TO 430 

de erro. 

Isso é tudo por enquanto. Os 


420 ICAR=1:1D=1:DAH=3:DIT=1 
430 ON NR GOTO 450 ,460 ,470, 
melhores votos de aprovação nos exames 
de promoção e espero encontrá-los 


440 POKE 16916,0:CLS:END 

450 A=RND(25)+65:6G0TO 490 :'x8***=S0" LETRAS 
breve pelas subfaixas. HPE CUAGN 73 
ES GL FM PYIDWM. 


CSETSSSIZZSZEZEZZCEZSZaASESS — — — e a a uu um um ame mia mt uma ma 









DATA 126,35,86.94,29,14,10,6,225.,.21,32,14,87,62 

DATA 120,190,40,6.89,238,3.211,255.8,122,86.29,32,15 

DATA 95,62,120,190,40,6,8.,238,3,211,255,8,123 

DATA 94,29,.16.219,13,32,214,61,32,209,35,24.,193 

"xxx**SUBROTINA PÁRA UM CARACTER TELEGRAFICO 

POKE BO.LIPOKE SO+1,.ALLPOKE SO+2,A2:LPRINT:IRETURN 

"x ****CUBROTINA PARÁ TRANSMITIR INDICATIVO 

C$=6$(72-43):C=LENCC$):FOR Il=1 TOC 

C1$=MID$CC$.I1,.I):IF Ci$g="1" THEN L=3:GOTO 870 

IF C1$="0" THEN L=1 

GOSUB 220 JNEXT 

IF M<>2 GOTO 900 

FOR 11=1 TO 200:NEXT 

RETURN 

Meninos iiabias PARA O MENU PRINCIPAL 

2LS:PRINT:IPRINT TAB(IS)sHEste programa transmite "; 
“aleatoriamente! ii EE RIADA A MEO 

PRINT TAB(3):"20 grupos de 5 caracteres telegra'; 

“ficos, mostran-! 

PRINT TAB(S):"do-os na tela ao final da transmissao." 

PRINT TAB(15);"As opcoes disponiveis sao:" 

PRINT:IPRINT TAB(10);'"'<1> Somente letras" 

PRINT:IPRINT TAB(10);"<2:> Somente algarismos":PRINT 

PRINT TAB(10);"<3> Letras, algarismos e pontuacao" 

PRINT:IPRINT TAB(10);"<4> Fim de programa" 























, 


GOSUB 1230 iNR=VALCOP$)ZIF NR<1 OR NR>4 GOTO 1010 

PRINT NR7;:RANDOMIFOR I=1 TO S00:NEXT:RETURN 

"exxe*SUBROTINA PARA MENSAGEM PISCANTE 

N=LEN(AS):INI=16320+(64-N)/2:N1l=N-1 

FOR I=0 TO N1/2:POKE INI+N1I-I,ASCCMID$CAS,N-1,1)) 

POKE INI+I.ASC(MID$CAS,I+1,.1)):NEXT 

FOR 1=1 TO 300:NEXT:IF INKEY$<>"" RETURN 

FOR I=0 TO N1/2:POKE INI+NÍ-I.32 

POKE INI+I, 42:NEXT2FOR 1I=1 TO 100:NEXT 

IF INKEY$="" GOTO 1050 ELSE RETURN 

"ee *e*<SUBROTINÁ PARA O MENU SECUNDARIO 

PRINTIPRINT TAB(1O);"Estao disponiveis as seguin"; 
"tes velocidades: " 

PRINT TAB(1IS)F"HcI= GS palavras / minuto! 

PRINT:IPRINT TAR(iS);"<2> & palavras / minuto" 

PRINT:IPRINT TAB(19)75"<«3> 7 palavras / minuto! 

PRINT:IPRINT TABC(IS)FH<A4> 9 palavras / minuto" 

PRINT:IPRINT TAB(CiS)5"<5> 11 palavras / minuto" 

PRINTIPRINT TAB(IS);"cás 14 palavras / minuto” 

PRINT TAB(40);"SUA OPCAO E” > dt 

GOSUB 1230 IVEL=VALCOP$):IF VEL<1I OR VEL>6 ENTU 1200 

PRINT VEL:Z:FOR I=i TO S00:NEXT:RETURN 

"eres SUBROTINA PARÁ ENTRADA VIA INKEY$ 

OP$=INKEY$:IF OP$="" GOTO 1230 ELSE RETURN 

"ecc eSUBROTINA AUXILIAR PARA ABERTURA 

FOR MM=MicMo) TO N2CMaLPRINT MID$(Z$.MM.1);2NEXT 

RETURN 


460 A=RND(9)+48:60TO 490 2" xx==*S0” ALGARISMOS 

470 A=RND(46)+44:" ***==LETRAS, ALGARISMOS E PONTUACAU 
480 IF A=64 OR (A>57 AND A<63) GOTO 470 

490 Q=0+1:0C8(0)=CHR$(A)LAS=CS(A-43) 

S00 FOR I=í TO ICAR:NEXT:' INTV ENTRE CARACTERES 

510 T=LEN(AS)IFOR I=1 TO TID$=NIDSCAS, 1,1) 

S20 IF D$="1" THEN L=DAH:GOTO 540 

S30 IF D$="0" THEN L=DIT 

S40 GOSUB 820 :FOR IIl=1 TO IDINEXT:"INTV DIDAH 

ss0 NEXT:IF INKFY$="S" GOTO 610 

560 IF 8=100 GDTO 610 

5720 C=C+1:IF U<>5 GOTO 390 















Roberto Quito de Sant'Anna — PYIDWM é 
engenheiro de telecomunicações e professor 
de Informática da AMAN. Radioamador des- 
de 1965, é membro ativo de várias entidades 
radioamador ísticas nacionais e estrangeiras, 
destacando-se: LABRE, CWRJ, CWRL, CWP, 
DIG, CHC e AGCW-DL. 
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Cálculo de fatoriais 





































Se você tem pequenas rotinas e programas 
utilitários realmente úteis tomando poeira em 


qu) seus disquetes ou fitas cassetes, antecipe-se 

aos piratas e trate de divulgá-los. Envie-os 

[a para a REDAÇÃO DA MICRO SISTEMAS — 

Dojo SEÇÃO DICAS: Rua Visconde Silva, nº 25, 
Botafogo, RIO DE JANEIRO — RJ, CEP 22281. 

Não se esqueça de dizer para qual equi- 


pamentos foram desenvolvidos. Desta forma, 
TD) sua descoberta poderá ser útil para muitos e 


Calcule o fatorial de qualquer número até 33, com 
esse pequeno programa: 








iv CLS 

20 CLEARZ5O 

30 1=320:10=512 

4O FORX=64TUOI27 

SO SET(X,18):SET(127-X,18) 

60 NEXT 

70 PRINTCHR$( 23) 

BO PRINICUG6,"F A TORI AL"; 
90 FORX=64T0127 

100 SET(X. 24) 2SET(127-X. 24) 
110 NEXT 

120 FORIT=1ITUSOsZNEXT 

130 PRINTEIL,STRINSS(64, "Hs 
i4O PRINTEIO, STRINGS COMU, "B'9s 
130 FORIIT=1T035:NEXT 

160 FS=F5+1 

170 IFFS=2THENI9OELSEGOTOMO 


Linha TRS-80 oe ET, 130 NEXT 
Agilizando INPUT 


210 INPUT"FATORIAL DE QUAL NUMERO"; PH 
220 IFPH>33THENPRINT"NUMERO MUITO GRANDE! 
TENTE OE NOVO":FOR 
i ili =1 TOB00:NEXT=GOTO 

Essa rotina agiliza os INPUT de um programa, quando SãO EPIC ITAPURA EO RO 
eles forem em grande número e em sequência. Todos os da- 240 FORI=1TOPE 
dos são colocados num único INPUT, separados por vírgu- 250 FH=IxFH 
las, e logo em seguida distribuídos em variáveis indexadas. 260 NEXT 

Para operar a rotina, basta entrar com o número de da- 
dos que se deseja introduzir e depois digitá-los seguidamen- 
te. Por exemplo, para entrar com uma sequência de 1 a 7, 
basta digitar 7 e depois “1,2,3,4,5,6,7”. 








muitos, em vez de desmagnetizar-se com o 
tempo em suas fitas e disquetes... 




























Inversão de vídeo 


Inverta o vídeo do seu micro com este pequeno progra- 
ma, mas atenção porque essa dica não inverte textos, já que 
os equipamentos da linha TRS-80 não possuem caracteres 
inversos. 

Esta rotina em Assembler foi construída com JUMP rela- 
tivosc pode ser alocada em qualquer lugar da memóriaRAM. 


10 FOR N% = 28672 TO 28701: READ D : POKE N%, D: 
NEXT 


20 DATA 33,0,60,6,16,14,64,126,203,127,32,4,62,191,24,5 
30 DATA 47, 203,255,203,183,119,35,13,32,237,5,32,232,201 









270 PRINT"O FATORIAL DE “PRVE” IGUAL Asz"FR 
2090 INPUT"OUTRO NUMERO (S/N)";AS 
290 IFAS<>"E"THENENDELCEI9O 













































Luiz Gonzaga Alvarenga-GO 












Para acionar esta dica em BASIC Disco, digite: 1000 INPUT K 
40 DESFUSRO =28672 1010 DIM B (K) 
- 0 1020 LET D -1 a - - 
ed pda 1030 LET F =0 Linha Sinclair 
1040 INPUT AS 


Para rodá-la em BASIC cassete, use: 


40 POKE 16526,0: POKE 16527,112 
50 A = USR(0) 
60 GOTO 60 


E para testar, faça: 


50 FOR N% =15360 TO 16383: POKE N%, RND (95) + 32: 
NEXT 

60 FOR N-. 001 TO 6.28 STEP .02 

70 SET (63+44* COS (N), 23+ 22* SIN (N)) 

80 NEXT : A = USR(0) 

90 GOTO 90 


1050 LET A$S-A$+“,0” 

1060 FOR N=1 TO LEN A$ 

1070 IF AS (N) =”,” THEN 
000 











Consertando linhas 












Quando for necessário consertar muitas linhas de um 
programa, em vez de usar vários SHIFT 7 e SHIFT 6, 
utilize esta sub-rotina: 


9995 INPUT L 

9996 POKE 16394 ,1-256* INT (L/256) 
9997 POKE 16395 INT (L/256) 

9999 RAND USR 1476 


Execute GOTO 9995 e digite o número da linha que 
deve ser editada. A chamada USR 1476 corresponde ao 
comando EDIT (SHIFT 1). 

Se as linhas a serem editadas estiverem em sequência 
(de S em 5, de 10 em 10 etc.), você pode acrescentar: 
9998 LET L= L+ (intervalo entre as linhas) 

Nesse caso, você deve utilizar GOTO 9995 apenas na 
primeira vez, e para editar basta executar GOTO 9996, 
pois o próprio computador calculará o número da linha 
a ser editada. 














2000 LET F = F+1 
2010 LET B(F) = VAL AS(D TON —1) 
2020 LET D =N+1 
2030 RETURN 



















Sérgio Márcio Furtado Valeriano-RJ 





Eduardo Ribeiro Costa-RJ 



















PRINT q 


Para fazer um PRINTO nos equipamentos da linha Sinclair, substitua: 
10 PRINT A,N;... 


por: 
10 PRINT INT (N/32), N-32* INT (N/32)..... 
onde O é menor ou igual a N e N é menor ou igual a 704. 










Sinclair 










Edson Cury-SP 





Tito M. 8. Homem de Mello-SP 












RELELCOE 


Mutlticurvas 










Para desenhar incríveis curvas em alta resolução, 
escolha os seus STEP e mãos à obra. Para sair do dese- 
nho, é só digitar TEXT e RTN, e a seguir RUN e 
RTN. Agora, rode esta dica e experimente com os 
STEP 1,2, 3... até 20. 
























10 REM MULTICURVA 

20 HOME 

30 PRINT "INTRODUZIR O STEP" 
40 INPUT S 

50 HOME 

60 HGR 

70 H COLOR=3 

80 FOR P=0 TO 800 STEP S 
90 LET X=. 1*P*COS(P) 

100 LET Y=.1*P*SIN(P) 

110 IF X>240 OR Y>160 THEN 

















































GOTO 130 
120 HPLOT X+120,Y+80 
130 NEXT P 
140 STOP 






Armando Oscar Cavanha-RJ 


Linha TRS-80 (II) 


Leitura fácil do diretório 






Uma das maiores dificuldades do sistema TRS DOS é 
a leitura de seu diretório. Mas com um simples programa 
em Assembler e dois PATCH podemos criar um diretó- 
rio simplificado, semelhante ao comando CMD”D: n” 
do BASIC: 


0100; 











DIRA/CMD 














0110; 

0120 ORG OFFFOH 

0130 DDIR DEFL 4419H 

0140 JDOS  DEFL 402DH 

0150 INIC LD A,(4225H + 6H) 
0160 LD 1X,4271H 

0170 LD (IX),A 

0180 CALL DDIR 

0190 JP JDOS 

0200 END INIC 





Depois, digite em TRS DOS READY: 














PATCH 
PATCH 


*10(ADD=4E2E,FPIND=CD3E4B,CHG=CD8A5S0) < ENTER > 
*TO(ADD=508A, FIND=4469736B,CHG=4FC33E4B) < ENTER > 








Para usar, digite em TRS DOS READY: DIRA: n 
<ENTER >, onde n é igual ao número do drive. 







Geraldo Pinheiro Xavier-MG 








EQUIPAMENTOS 





e Vendo  Vic-20, seminovo, 
todos os acessórios. Tratar com 
Sérgio pelo tel.; (011) 211-5569, 
São Paulo. 
e Vendo calculadora TI 59. Pre- 
ço Cr$ 140.000,00. Tratar com 
Adrian pelo tel. (011) 240-9611, 
ramal 21, São Paulo — Capital. 
e Vendo programa Microdata 
(Banco de Dados), da Microarte, 
para microcomputador Microen- 
ho. Tratar com Leonardo Sor- 
tino, tel.: (011) 282-4264 ou 881- 
0770, São Paulo. 
e Compro microcomputador da 
linha Sinclair ou o CP-300. Da- 
niel Salvador Filho. Av. Bias For- 
tes 1122, apto. 125, Centro — Be- 
lo Horizonte — MG. CEP 30,000. 
e Vendo ou troco Micro-Enge- 
nho, 64 Kbytes, acionador de dis- 
quete, modulador de rádio e acio- 
nador de jogos. Troco por vídeo- 
cassete. Tratar com Sérgio pelos 
teis.: (011) 262-5916 ou (011) 
832-3227, São Paulo. 





SOFTWARE 





e Vendo programas para lógica 
Sinclair como Polvos, TK Man, 
Kong, Labirinto tridimensional, 
Alerta Vermelho e Taipan. Tratar 
com Gilberto pelo tel. (011) 280- 
41 83, São Paulo. 

e Vendo ou troco programas pa- 
ra o TK 82-C e compatíveis. Pos- 
suo vários importados, entre apli- 
cativos e jogos. A maioria é em 
linguagem de máquina. Tratar 
com Isabel, Rua Rodrigo Soares 
de Oliveira, nº 255, Bairro 
Anhangabaú, Jundiaí, São Paulo, 
CEP 13200. 

e Compro ou troco programas 
para computador Atari ou Apple, 
em fita, cartucho ou disquete. 
Tratar com José pelo tel.: (011) 
227-0848, São Paulo, 


VENDO 





DIVERSOS 





e Vendo revistas americanas pa- 
ra microcomputadores, videoga- 
mes e vídeo. Informações com 
Marcelo pela Caixa Postal 12.795, 
São Paulo, CEP 04798. 

e Troco a minha Caloi 10 (ano 
81), por um gravador cassete Na- 
tional ou interface RS 232. Car- 
tas para Ricardo de Oliveira, Rua 
Ludgero Martins, nº 67, CEP 
37170, Boa Esperança, Minas Ge- 
rais. 

e Procuro estágio. Formei-me re- 
centemente no curso de Técnico 
de Programação de Computadores 
(nível 2º grau) pelo Instituto 
de Tecnologia O.R.T. do Rio de 
Janeiro. Tenho conhecimentos 
dos computadores IBM/360 e 
4341, de VM/C.M.S. e D.O.S./ 
VSE; dos microcomputadores 
Unitron (AP Il) e Prológica (CP- 
500) e das linguagens Cobol e 
Basic. Luiz Chalola (17 anos). 
Rua República do Peru 335/ 
201, Copacabana. CEP 22021 — 
Rio de Janeiro, RJ. 

e Compro livros sobre os micro- 
processadores 6502 e 8088 e so- 
bre programação em linguagem de 
máquina no APPLE Il, de prefe- 
rência em português. Tratar com 
Angelo Andrade Cirino, Rua Car- 
los Alves nº 69, apto. 203, Pam- 
pulha, tel,: 441-3762, Belo Hori- 
zonte, MG. 





CLUBES 


e Clube de usuários de micro- 


computador no qual você troca 
idéias, programas e equipamentos. 
Informações pela Caixa Postal 
7459, CEP 01000, São Paulo. 


Apoiado! Equipamentos, Software, Cursos, Clubes e Diversos: 
você é quem decide o que, quando e como anunciar nos 
Classificados MS. Quanto você terá que pagar? Isso também é 


decisão sua. Preste atenção: 


e cada linha de texto (30 toques, incluindo os espaços em branco) 


custa Cr$ 2.000,00: 


e linhas incompletas serão cobradas como inteiras; 


clóssificatios 





e Possuo uma TI 99/4A e gosta- 
ria de entrar em contato com pos- 
suidores deste equipamento para 
troca de informações e experiên- 
cias. Ricardo Augusto Martinelli 
Rua Castelo Branco, 680 — Praia 
da Costa — Vila Velha — ES, CEP 
29100, tel.: (027) 229-4498. 
e PETROCLUB TK/Sinclair: As- 
socie-se gratuitamente e receba 
periódicos com jogos, utilitários e 
dicas referentes aos micros com 
lógica Sinclair. Estamos formando 
uma biblioteca de programas e 
contamos com a sua colaboração, 
enviando, se possível, um progra- 
ma qualquer, juntamente com os 
seus dados pessoais e um envelo- 
pe selado. Envie para: Rua do Im- 
perador, 206/1102, CEP. 25.600, 
Petrópolis, Rio de Janeiro. 

e Gostaria de entrar em contato 
com jovens possuidores de CP-500 
ou similares, para troca de jogos e 
informações. Possuo um CP-500 
com um drive. Contato com Dé- 
cio Yokota, Rua Moncorvo Filho, 
77, Butantã, São Paulo, SP. CEP 
05507. 





CURSOS 





e A Iguaçu Center Computado- 
res está oferecendo o curso de 
Programação de Computadores, 
incluindo: Introdução, BASIC 1, 
BASIC Avançado e Aplicações 
Comerciais. O curso tem duração 
de seis meses e os horários são di- 
versos: manhã, tarde e noite, in- 
clusive aos sábados. Informações 
na Rua Marechal Floriano Peixo- 
to, nº 1.480, sala 148, Nova Igua- 
cu, tel,: (021) 767-5709, Rio de 
Janeiro, RJ. 


e A Divisão de Ensino da ADP 
Systems está promovendo cursos 
para programadores e analistas. O 
primeiro, de uma série voltada a 
produtos usuais, será o CICs, des- 
tinado a aumentar a produtivida- 
de. Na parte de especialização 
profissional, será desenvolvido o 
curso Auditoria de Sistemas. Maio- 
res informações pelo tel.: (011) 
285-3283, São Paulo, SP. 

e Comunicação com o Sistema, 
VM/CMS: Conceitos e Funções, 
Microcomputadores e a Lingua- 
gem BASIC, Linguagem Assem- 
bler para o Sistema Operacional 
CP/M-80, Sistema Operacional 
CP/M e Linguagem LOGO para 
Crianças, são os cursos que o Ins- 
tituto de Tecnologia ORT oferece 
no mês de maio. Inscrições e in- 
formações na Rua Dona Mariana, 
213, tel,: (021)226-3192, Rio de 
Janeiro, RJ. 

e A Engedata está oferecendo Cur- 
so de Programação em Microcom- 
putadores p/engenheiros e estu- 
dantes da área, com estágio em 
seu próprio CPD. Inform. Rua 
São Paulo, 1631/906 — Lourdes 
— Tel.: (031) 337-5636 — Belo 
Horizonte — MG. 

e A Servimec estará promoven- 
do nos dias 02, 03 e 04 de maio, 
em São Paulo, o seminário A Mi- 
croinformática — lUma Análise 
Técnica. Maiores informações 3 
Rua Corrêa dos Santos, 34, tel.: 
(011) 222-1511, São Paulo, SP. 

e A Compucenter está oferecen- 
do, de 21 a 23 de maio, o seminá- 
rio Comparação e Seleção de Mi- 
crocomputadores. Maiores infor- 
mações sobre local e preço pelo 
tel.: (011) 255-5988, São Paulo, 
SP. 

e Controle de Processos, Progra- 
mação BASIC, Manutenção do 
micro DGT-101 e Projeto de In- 
terfaces para Microcomputadores 
são os cursos oferecidos no mês 
de maio pelo Centro Brasileiro de 
Informática, à Av. Passos, 115, 
salas 202, 204 e 215, Rio de Ja- 
neiro, RJ. 


QUEM MANDA 
NESTA PÁGINA SOU EU! 


e o próprio anunciante deve checar o valor de seu anúncio com o 


número de linhas que ele contiver; 


e o anúncio deve vir acompanhado de um cheque nominal à ATI 


Editora Ltda; 


Os textos devem ser datilografados ou escritos em letra de fôrma, 
obedecendo as 30 batidas por linha. Veja um exemplo: 











D|6 1 oim 3|2 
alefo. Jo| [ele jo(v alelo, efe oe 
E 


ER 


jaja po j2]s|7]- 


Maiores informações pelos tels.: (021) 266-0339 — RJ ou (011) 853-7758 — SP. 
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MICRO SISTEMAS, abril/84 


Transformação PAL-M 
Assistência Técnica 
Expansões 


UNITRON 


Assistência Técnica 
Autorizada 
Vendas - Leasing 

- Expansões 


fio sto Jelbiído 


Manutenção 
na sua empresa 


Av. Marechal Câmara, 271/101 
Rio de Janeiro Tel.: 262-3289 


adala 


CONSULTORES 


sessoria em Processamento de 


Dados 
Desenvolvimento de Programas 


PROGRAMAS PRONTOS 

(TRS-B0-Ill — diskette) 

e Emissão de Carnês 

e Controle de Convênios 

e Processamento de Cadastros 

e Histórico Médico 

e Mala Direta 

e Lista de Preços com Reajuste 
Automático 

e Cadastro de Artigos de Re- 
vistas e/ou Livros 

e Cadastro de Clientes 


PRH Consultores 


| Rua México, 70—Grupo 810/811 


Centro-RJ Tel.: (021)220-3038 





Alfa Bit. 
CLUBE DE COMPUTAÇÃO 


Associe-se ao ABCc e ganhe Anúncio GRA- 

TIS,-um exemplar de ALFABIT e DESCON- 

TOS de 10% na compra de LIVROS, REVIS- 

TAS, CURSOS e PROGRAMAS, além de: 

— Serviços de “Reprinters” e Consultas 

— Associação a Clubes Europeus 

— Participação em Cursos, Congressos e 
Concursos 

— Novos Lançamentos a PREÇOS REDUZI- 
DOS (Breve: IMPRESSORA DE AGU- 
LHAS P/MINI-MICROS DE LÓGICA SIN- 
CLAIR - Lançamento “Digital Eletró- 
nica”) 

ANUIDADE: Cr$ 1.000 (hum mil cruzeiros) 

somente ao receber seu Cartão-Descontos e 

um exemplar de “Alfabit" 

Envie nome, endereço, profissão e texto do 

rã (caso queira publicação ime- 

lata). 


NOVIDÉIA(*) 


Comunicação e Informática Ltda. 
CAIXA POSTAL 9978 
CEP 01051 - São Paulo, SP 


(*)Comercializamos seu proje- 
to-Soft ou Hard. Escreva-nos. 





EVTESHOP 


INFORMATICA LTDA 


PROGRAMAS PARA APPLE 
E 
COMPATÍVEIS 


Contabilidade Geral 
Editor de Texto 
Sistema de Arquivos 
Mais Direta 

Sistema Estatístico 
Controle Bancário 
Administração Imobiliária 
Sistema Bibliotecário 
Escritório de Advocacia 
Utilitários em Geral 
Jogos Diversos 


Av. Franktin Roosevelt, 23/803 — Castelo 
Fels.: (021 220-6579 - 2720-8327 
CEP.: 20.021 — Rio de Janeiro RJ 


Egiersehip 


COMPUTAÇÃO 





Rua Miguel Lemos nº 41 
sala 606 - Copacabana 
Tel.: 227-8803 
Rio de Janeiro - RJ. 


“MIKROS 
AGORA NO 
LEBLON! 


Av. Ataulfo de Paiva 566 - Loja 211 
Rio de Janeiro — Tel.: 239-2798 
APROVEITE OS PREÇOS 
“INCRÍVEIS” DA “MIKROS” 
DO LEBLON, EM SUA ÉPOCA 
DE INAUGURAÇÃO. 


MICROCOMPUTADORES 
NAJA — JR-SYSDATA — UNITRON 


PROFISSIONAIS 
ALTAMENTE ESPECIALIZADOS 
PARA ATENDÊ-LO 


ROBOTIC 


— MICROCOMPUTADORES 
DE TODAS 
AS MARCAS 


— SUPRIMENTOS 


— PEÇAS E PARTES PARA 
MICROCOMPUTADORES 


— JOGOS ELETRÔNICOS 


RUA BARATA RIBEIRO, 370 

— Loja 105 APART HOTEL — 

COPACABANA — RIO — RJ 
TEL.: (021) 257-6396 





| O lugar compatível 
com você e seu 
micro. 









— Micros 
— Acessórios 
— Software 
— Livros 
— Revistas 





Rua Dias da Cruz, 215 


s/804 — Rio de Janeiro—RJ 
Tel.: 594-2699 


EB BITS E BUTES 
COMPUTADORES 


e VENDAS 

e ASS. TÉCNICA 
ESPECIALIZADA 

e PROGRAMAS 

e DISKETTES 

e FITAS 

e SERVIÇOS 

e CURSOS DE BASIC 

e FORMULARIOS 


CONSERTOS EM 24 HORAS 


(COM GARANTIA) PARA 
O CP-500 e DGT-100 


EM SÃO CONRADO 
Estrada da Gávea, 642 
Lj. B Tel.: 322-1960 « 





SincPain“PDace 









é MICROLÓGICA 


Engenharia de 
Sistemas Ltda. 
Consultoria de Hardware 


ASSISTÊNCIA TÉCNICA 
AUTORIZADA 
A MICROCOMPUTADORES 
Compatíveis com APPLE, 
TRS8O, IBM PC, ZX81, jogos 
eletrônicos e outros 


Lançamento do contrato de 
manutenção com custo 
minimizado: 50% do valor 
normal acrescido do custo 


de peças (quando houver). 


Temos aplicativos e jogos 
novIssimos para 
APPLE Il em Diskettes 
por Cr$ 15.000,00. 

AV. PRESIDENTE VARGAS, 
542/1.912 — 263-9925 


DATAMICRO 











MICROCOMPUTADORES 
TK 83, 85, & 2000 COLOR 





CP 300, 500 & 600 
COLOR 64 (EXT. BASIC) 


SUPRIMENTOS 
Disquete. fitas. form. continuo 
Aire head Seb Ea si: Lott; 
CONSULTORIA DE SISTEMAS 
Diagnóstico e apoio a decisão 
CURSOS E TREINAMENTO 
Introdução aos microcomputadores 
Linguagem Basic 
Aplicação dos micros 
na Engenharia 
Microcomputadores para crianças 
INSCRIÇÕES ABERTAS 
Livros e revistas especializados 


















Visc. de Pirajá, 547 Sobreloja 211 
Cep. 22.410 Ipanema Rio RJ 
Tel.: (021) 274-1042 


DESPACHAMOS PARA 
TODO O BRASIL 


No Recife, visite 
TELEVÍDEO (') 


O Lojao de Informatica mais 
descomplicado do pais! 
Micros, perifericos, suprimen- 
tos, Software. Cursos, Livros e 
Revistas, Componentes Eletro- 
nicos, Peças e Som. 


PREÇOS ESPECIAIS. 
FINANCIAMENTO PRÓPRIO 


PR AA gti A A 
Compre pessoalmente ou pelo 
Reembolso Postal 


TELEVIDEO LTDA. 

R. Marquês do Herval, 157 
Tel.: (081) 224-8932, 
(50000) Recife, PE 


() Sr. Industrial: distribuímos seu 
produto nas melhores condiçoes. 
Contato em Sao Paulo: Tel.: (011) 
220-7377 (Sr. ANDERSON — Mun- 
disom) 





010 0111 0100 0000 1100 1111 
Qd O 1000 0010 
AO00O 1100 





Curso de 
Assembler — XV 





partir desta lição, voltamos a descrever os grupos de instru- 
ções na seguéncia definida pela Zilog. Neste número vamos conversar 
sobre o grupo de aritmética de propósito geral e controle da UCP. Va- 
mos, então, conhecer estas instruções. 
1 — Ajuste Decimal do Acumulador 
Formato: DAA 
Operação : Efetua o ajuste decimal do conteúdo do Acumulador. 
Código objeto: 


DAA 


001001117/—-427 


Descrição : A instrução de ajuste decimal converte o conteúdo do Acu- 
mulador em dois dígitos decimais, codificados em doise 
grupos de quatro bits. É utilizado normalmente após a 
adição de dois números decimais (BCD). 

Ciclos de máquina (M):1 

States (T):4 

Flags afetadas: 
S — setada se o bit mais significativo (MSB) do Acumula- 
dor após a operação é 1. Senão, é ressetada; 
Z — setada se o conteúdo do Acumulador após a operação 
é zero. Senão, é ressetada; 
H — esta flag é usada na conversão e pode assumir diferen- 
tes estados; 
P/V — setada se o conteúdo do Acumulador, após a opera- 
ção, contiver uma paridade par. Senão, é ressetada; 
N — não afetada; 
C — esta flag é usada na conversão e pode assumir diferen- 
tes estados. 
Exemplo : Se realizarmos uma operação de adição entre 15 
(BCD) e 27 (BCD), obteremos o seguinte resultado: 


15 

o 
es 
42 


mas, quando realizamos esta operação de acordo com a aritmética biná- 
ria padrão, obtemos o seguinte resultado: 


0001 . 0101 
+ 
0010 . 0111 
0011 . 1100 (3C) 


80 


Esta soma não é decimal. A instrução DAA ajusta o resultado para a 
representação decimal (BCD): 





0001 . 0101 
+ 
0010 . 0111 
0011 . 1100 
0100 . 0010 (DAA) 


e obtemos o resultado correto, que é 42. 


2 — Complementa Acumulador (complemento de 1) 
Formato: CPL 

Operação : Complementa o conteúdo do Acumulador. 
Código objeto: 


CPL 
DODODOOa RES: 


Descrição : O conteúdo do Acumulador é invertido (complemento de 1). 
Ciclos de máquina (M):1 
States (T):4 
Flags afetadas: k 
S — não afetada; 
Z — não afetada; 


H — setada; 
P/V — não afetada; 
N — setada; 


C — não afetada. 

Exemplo: Se o conteúdo do Acumulador é 1011 e 0100, 
após a execução da instrução CPL, o conteúdo do Acumu- 
lador será 0100 e 1011. 


3 — Negação do Acumulador (complemento de 2) 

Formato: NEG 

Operação : Efetua uma operação de complemento de 2 sobre o conteú- 
do do Acumulador. 

Código objeto: 


NEG 


Tn] es 
01000100) —p 44 
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Descrição: O conteúdo do Acumulador é negado (complemento de 2). 


Esta operação subtrai de O (zero) o conteúdo do Acumulador. 

Ciclos de máquina (M):2 

States (T):B (4,4) 

Flags afetadas: 
S — setada se o resultado é negativo. Senão, é ressetada: 
Z — setada se o resultado é zero. Senão, é ressetada; 
H — setada se ocorre um empréstimo do bit 4. Senão, é 
ressetada; 
P/V — setada se o Acumulador tinha 80H antes da opera- 
ção, Senão, é ressetada; 
N — setada; 
C — setada se o conteúdo do Acumulador era diferente de 
zero antes da operação. Senão, é ressetada. 
Exemplo : Se o conteúdo do Acumulador é 1001 e 1000, 
após a execução da instrução NEG, o conteúdo do Acu- 
mulador será O110 e 1000. 

4 — Complementa Flag Carry 

Formato: CCF 

Operação : Complementa a flag carry. 

Código objeto: 


Ccr 


[E] + 


Descrição: A flag c no registrador F é invertida (complementada). 
Ciclos de máquina (M):1 
States (T):4 
Flags afetadas: 
S — não afetada; 
Z —- não afetada; 
H — cópia do conteúdo da flag c antes da operação; 
P/V — não afetada; 
N — ressetada; 
C — setâda se o conteúdo da flag c era O antes da 
operação. Senão, é ressetada. 
5 — Seta Flag Carry 
Formato: SCF 
Operação : Seta a flag carry. 
Código objeto: 


SCE 
DODOONDO RS 


Descrição : A flag c no registrador F é setada. 
Ciclos de máquina (M):1 


States (T):4 
Flags afetadas: 
S — não afetada; 
Z — não afetada; 
H — ressetada; 
P/V — não afetada; 
N — ressetada; 
C — setada. 
6 — No Operation 
Formato: NOP 
Operação: Não executa nenhuma ação. 
Código objeto: 
NOP 


00000000] -—>p00 


Descrição: Esta instrução é passiva; ela não executa nenhuma ação no 
microprocessador. É utilizada na substituição de instruções 
evitando que se alterem os endereços. 

Ciclos de máquina (M):1 

States (T):4 

Flags afetadas: nenhuma 


7 - HALT 
Formato: HALT » 
Operação : Suspende a execução de um programa. e 


MICRO SISTEMAS, abril/84 











































* SOG - Uma nova e mais poderosa versão de ROT | 
e seu sensacional Sistema Operacional Gráfico. 
a MERGE 


e O MERCADOR 
e STARQUEST 
e ZARAKS 


CIBERNE | 


O SOFTWARE QUE VOCÊ MERECE | 


CIBERNE é a mais avançada e sofisticada linha de sotfware para microcomputadores, criada 
para livrar você dos inconvenientes de produções amadoras ou de origem duvidosa. Com 
CIBERNE você terá uma diversificada linha de programas novos, lançados periodicamente 
em pacotes econômicos. Com gravação profissional e em embalagem inviolável, CIBERNE 
oferece s você garantia total em qualquer lugar do Brasil, 


PROGRAMAS EM FITA PARA TK-82, 83, 85, CP-200 E COMPATÍVEIS 


Com o exclusivo FLASH-SISTEM que permite um carregamento 6 vezes mais rápido 
que o normal, sem qualquer modificação no equipamento. 


EFaaaRAa a Te 1 bi 


Sem qualquer acréscimo no preço você encontra em cada fita 5 excitantes jogos pars seu lazer e 
entretenimento. Use joystick ou teclado. 


BICHOS & CIA 


= CASCA, A COBRA w NAVE MÃE 
e CRAZY KONG 
* CENTOPÉIA 
“ FROGGER 

8 SUCURI 


PATRULHA GALÁCTICA COMBATE 


e NIGHT GUNNER 
= FUNGOS MUTANTES = ALERTA VERMELHO = SABOTAGEM 


UTILITÁRIOS 


ba A to + a a nad no 





RT | - Plus CX à 


* ASSEMBLER 
ms DESASSEMBLER 









PARA BREVE 


e ESTRELA NEGRA 
e CRISTAL MÁGICO 
* GUERRILHA CÓSMICA 


e ARQI (Arquivo de Dados) 
e CASHFLOW 





EM TODO O BRASIL NAS MELHORES LOJAS DO RAMO. 


Informações, Distribuição e Vendas: 


JVÃ-MICROCOMPUTADORES LTDA. 


Av. Graça Aranha, 145 siloja 01 - Rio de Janeiro - RJ 
CEP 20.030 Tel.: (021) 262-6968 





Loja, GALERIA METROPOLE LJ B 14 
TELS. 259.1503 2576118 SP 
ENTRADAS DA GALEHIA 






id E SO E 





PRACA DOM JOSE GASPAR, 106 


SEMPRE NOVIDADES 
POR DENTRO DO APLE: uma abordagem do appisott Tucci 
MANUAL DE COBOL ESTRUTURADO McCracken 
THE CREATIVE TRS-BO - Mazur 
LEARNING LOGO ON THE APPLE Il 





- PROGRAMMER'S GUIDE TO CP/M - Libes 
- 6502 ASSEMBLY LANGUAGE PROGRAMMING - Fernandez 


RPG Il - Pereira... 
THE CREATIVE APPLE - Pelczarski 


- USING CP/M: a self teaching guide - Fernandez 
- ANALISE ESTRUTURADA DE SISTEMAS - Gane 


APPLE BASIC DATA FILE PROGRAMMIING - Finkel 


- LEARNING TO PROGRAM IN C - Plum 
- USING DBASE Il - Townsend 
- MANUAL DE BASIC: para sistemas compativeis com o apple | - 


Peckham 

GOLDEN DELICIOUS GAMES FOR THE APPLE COMPUTER - 
Franklin CENTER E PR 
WRITING INTERACTIVE COMPILERS AND INTERPRETERS 
Brown . p 

B080/Z80 ASSEMBLY LANGUAGE - Miller 
COMPUTADORES BRASILEIROS: industria, tecnologia e depen 
dencia - Tigre db pelve Eno - 3 

APPLE GRAPHIS & ARCADE GAME DESIGN - Stanton 
INTRODUCTION TO 8080/8085 ASSEMBLY LANGUAGE PRO. 
GRAMMING - Fernandez .. 

SPREADSHEET SOFTWARE FROM VISICALC TO 1.23 - Hender 
son 


- IBM'S PERSONAL COMPUTER 2nd. edition - DeVoney 
- USING 1.2.3 - LeBlond , . É EE 44 
- CP/M SOFTWARE FINDER - Digital Research... 


REAL MANAGERS USE PERSONAL COMPUTER! - Heiser 
IBM PC EXPANSION & SOFTWARE GUIDE - Friedman 

[o pigs e 
| 


ATENDEMOS POR EEMBOLSO 
CORREIO E VARIG — (fora da Capital) 
PEDIDOS PARA: Cx. Postal 9280 
“CEP01051 -SAO PAULO -SP | 





AVENTURA & MISTÉRIO 
8 PIRÂMIDE INCA 


e GALÁTICA “ POLARIS e O AVENTUREIRO 
e SOS VEGA Ill e DUELO » MAZOGS 
& PERSEGUIDOR 8 SCRAMEBLE = USS ENTERPRISE 


* COMPILADOR BASIC 


e ORÇA | (Orçamento doméstico) 


LIVRARIA SISTEMA 


S/ILOJA 


AV SAO LUIZ, 187 -(Antgo 153) 
SP 





































































16.500, 
15.700, 
41.000, 
58.000, 
33.000, 
38.000, 
18.500, 
41.000, 
38.000, 

7.900, 


- 38.000, 


63.500, 
48.000, 


8.700, 
33.000, 


. 40.000, 


33.000, 


7.900, 
51.000, 


33.000, 


51.000, 
51.000, 
46.000, 
46.000, 
46.000, 
61.000 
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Código objeto: 


HALT 


[Io] + 


Descrição : A instrução HALT suspende a operação do microprocessador 
até que uma interrupção ou um RESET sejam recebidos. 
Durante o estado de HALT, o microprocessador executa 
instruções NOP para manter ativa a lógica de refresh das 
memórias. 

Ciclos de máquina (MJ: 1 

States (T):4 

Flags afetadas: nenhuma 

8 — Desabilita Interrupção 

Formato: DI 

Operação : Desabilita interrupção. 

Código objeto: 


DI 


[TD] + 


Descrição: Esta instrução desabilita qualquer interrupção mascarada, 
ressetando os flip-flops de habilitação de interrupção (IFFI 
e IFF2). 

Ciclos de máquina [M):1 

States [T):4 

Flags afetadas: nenhuma. 

9 — Habilita Interrupção 

Formato: El 

Operação : Habilita a interrupção mascarada. 

Código objeto: 


EI 


DOCE dA 


Descrição: Esta instrução habilita qualquer instrução mascarada, setan- 
do os flip-flops de habitação de interrupção (IFF1 e IFF2). 
Note que as instruções El e DI desabilitam uma interrupção 
mascarada durante a sua execução. 
Ciclos de máquina ([M):1 
States (T) :4 
Flags afetadas; nenhuma. 
Exemplos: Quando o microprocessador é desabilitado a 
aceitar interrupções mascaradas pela instrução Df, a UCP 
não responde a um sinal de Interrupt Request (INT). So- 
mente após ser executada uma instrução El, a UCP irá no- 
vamente responder a um sinal INT. 
10 — Seta Interrupção no Modo O 
Formato : IM O 
Operação : Seta o modo de interrupção para operar no modo 0. 
Código objeto: 


IM 0 


—p ED 
—» 46 





Descrição: Esta instrução seta o modo de interrupção para o modo O. 
Neste modo, o dispositivo que provoca a interrupção pode 
inserir alguma instrução no bus de dados que é executado 
pelo microprocessador. O primeiro byte enviado pelo dispo- 
sitivo é lido pela UCP durante o ciclo de aceitação da inter- 
rupção e os bytes subsequentes são lidos numa sequência 
normal de leitura, A instrução normalmente enviada pelo 
dispositivo é um RST (restart), que provoca a execução da 
rotina existente no endereço especificado como operando 
da instrução RST. 
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Existem oito possibilidades de uma instrução de restart : 


CÓDIGO DE OPERAÇÃO ENDEREÇO DE DESVIO 





Ciclos de máquina (M):2 

States (T):8 (4,4) 

Flags afetadas: nenhuma, 

11 — Seta Interrupção no Modo 1 

Formato: IM 1 

Operação : Seta o modo de interrupção para operar no modo 1. 
Código objeto: 





Esta instrução seta o modo de interrupção para o modo 1. Neste modo, 
o microprocessador responde a uma interrupção com um restart para a 
posição de memória 38H. 

Ciclos de máquina (M):2 

States (T):8 (4,4) 

Flags afetadas: nenhuma. 

12 — Seta Interrupção no Modo 2 

Formato: AM 2 

Uperação : Seta o modo de interrupção para operar no modo 2. 
Código objeto: 


IM 2 


ESET e» 
[o nio nn 20] + st 


Descrição: Esta instrução seta o modo de interrupção para o modo 2. 
Neste modo, é possível uma chamada indireta para uma po- 
sição de memória. Com este modo, o microprocessador for- 
ma um número de 16 bits: os oito bits de alta ordem (MSB) 
são obtidos pelo conteúdo do registrador de interrupção I e 
os oito bits de baixa ordem (LSB) são colocados no bus 
de dados pelo dispositivo que provocou a interrupção. 


O ei ———— = O 7 0 





registrador 1 dispositivo 


Ciclos de máquina (M):2 
States (T):8 (4,4) 
Flags afetadas: nenhuma, 


SE 
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Em MICRO SISTEMAS nº 29, página 29, a listagem 
Copsys — com o intuito de facilitar a leitura 
apresentou espaços em branco desnecessários, que 
causam problema na hora de rodar o utilitário. Sendo 
assim, você deve compactar, ou seja, suprimir todos os 
espaços em branco da linha 5000 à linha 5530 

Em MICRO SISTEMAS nº 30, na matéria Pacotão di 
hardware para os Sinclair, a figura 11 (página 39) foi 
editada com alguns erros. A figura correta é a que 
se segue 
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Três rotinas, três apresentações diferentes, e todas para programas que 
rodam na família TRS-80. Mostre que seu programa é bom desde o começo 








Seu programa merece 
uma boa apresentação 


Eduardo Hauff 





programa a seguir é composto de três rotinas que de- 

senham três figuras em perspectiva para serem utili- 

zadas em apresentações ou inicializações de- progra- 

mas em BASIC, para todos os micros compatíveis 
com o TRS-80. 

Nas rotinas 1 e 3, o título a ser inserido no desenho deverá 
conter no máximo 23 caracteres (linhas 120 e 400) a partir 
da posição P (linhas 110 e 410). Já na rotina 2, esta limitação 
se amplia para 64 caracteres (linha 340). 

O programa propriamente dito deverá ser colocado após 


as linhas 200 para a rotina 1, 350 para a rotina 2 e 480 para a 
rotina 3. Todas estas rotinas utilizam-se da função SET, cuja 
relativa lentidão é aqui valorizada pelos efeitos gráficos que 
produz. 





Eduardo Hauff é industrial e dirigente de empresa de construção civil. 
Desenvolve programas para a linha TRS-80 desde 1980, dedicando-se 
principalmente à área educacional. 


Apresentações para programas 





10 ICAC LLC LL EA dd dd 1 

20 '* * 

30 ** APRESENTACOES PARA PROGRAMAS * 

40 '* * 

50 !* (C) - EDUARDO HAUFF = 1984 bn 

60 '* * 

70 IARA ALL CCL LA AAA A + 

80 ' 

90 ! APRESENTACAO 1 

100 * 

110 CLS:X=37:Y=18:M=32:P=467 

120 AS="* * PIETOU Lo ” *".BS=CHRS(215):FOR 
T=1TO7 

130 " TITULO: DE 467 a 489 - CHR$S(215) = 


23 ESPACOS 
140 PRINTOP,AS;:FORZ=1TOM+16:SET(X,Y):X=X+1:NEXT 
150 PRINTOP,BS;: FORZ=1TOM-26:SET(X,Y):Y=Y+1:NEXT 
160 PRINTOP,AS;:FORZ=|TOM+16:SET(X,Y):X=X-1:NEXT 
170 PRINTEP,B$;:FORZ=1TOM-26:SET(X,Y):Y=Y-1:NEXT 
IB0 PRINTOGP,AS;:M=M+4:X=X-2:Y=Y-2:NEXT 
190 PRINTG98B4, "DIGITE (ENTER)”; 
200 IS=INKEYS:IFIS=""THEN200 


210 
220 ! APRESENTACAO 2 


230 * 
240 CLS: FORS=1TO4:X=54:Y=22:M=4:FORT=1TO6 
250 FORZ=1TOM+13:SET(X,Y):X=X+1:NEXT 


LtU FORZ=1TOM-4:SET(X,Y):Y=Y+1:NEXT 

270 FORZ=1TOM+13:SET(X,Y):X=X-1:NEXT 

280 FORZ=1TOM-4:SET(X,Y):Y=Y-1:NEXT 

290 IFS=1THENM=M+2:X=X-4:Y=y-4 

300 IFS=2THENM=M+2:X=X-4:Y=y+2 

310 IFS=3THENM=M+2:X=X+2:Y=Yy+2 

320 IFS=4THENM=M+2:X=X+2:Y=Y-4 

330 NEXTT,S:FORZ=54TO71:RESET(Z,22):RESET(2,23): 
NEXT 

340 PRINTO469,"* * TITULO **",.PRINTO9SS, 
"DIGITE (ENTER)"; 

350 IS=INKEYS:IFIS=""THEN350 


360 
370 * APRESENTACAO 3 
380 


390 AS="* * TITULO **".BS=CHRS(215) 

400 * TITULO: DE 469 a 491 - CHR$(215) = 
23 ESPACOS 

410 CLS:X=33:Y=12:M=39:P=469:FORF=1ITO6 

420 PRINTGP,AS; :FORZ=1]TOM+16:SET(X,Y):X=X+1:NEXT 

430 PRINTOP,BS;:FORZ=]TOM-26:SET(X,Y):Y=Y+1:NEXT 

440 PRINTOP,AS;:FORZ=1TOM+1]6:SET(X,Y):X=X-1:NEXT 

450 PRINTOP,BS;:FORZ=]TOM-26:SET(X,Y):Y=Y-1:NEXT 

460 PRINTOP,AS; :M=M+2:X=K+1]:Y=Y+1:NEXT 

470 PRINTO988, "DIGITE (ENTER)"; 

480 IS=INKEY$:IFIS=""THEN480ELSE11O 


MICRO SISTEMAS, abril/84 





NOVO CP 300 PROLÓGICA. 
O pequeno 
grande micro. 
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Pode ser ligado ao seu"aparelho de IV, da 









microcomputador pessoal simples, de facil mesma forma que no terminal de video 
manejo & um sofisticado microcomputador Ge uma range EMpIESA 

arrficerama AE da agr aRPA Pe RIO Pao PO SPA vrsã mma 

profissional, VOCÊ pode ficar com 05 dos tom o LF 300 você pode 


Pa re  abara E ums PO SN a] É e 
Porque chegou o novo CP 300 Prológica 
O novo CP 


microcomputador pequeno. Mas memória 

Je microcomputador grande 

Ele já nasceu com 64 
kDytes de memória 

interma COM 

possibilidade de Permite para o CP 500 ou o 


exnansão de memó-. Sonexão TES 89 americano. E o que é melhor 
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lazer conexões telefônicas 


Em 


300 tem preço de 


nara coleta de dados 
se ulilizar | 
de uma 
mpressora 

eg ainda dispor de todos 


Os programas ExISIEMEs 



















Pode ser ligado 

a um televisor comum 

ou a um sofisticado 
termina! de video 


0. 


Pode ser ria externa para até você estará apto a operar qualquer 
acoplado à uma quase 1 megabyte outro sistema de microcomputador 
Impressora. - 


É tem um teclado profissional Nenhum outro microcompulador pessoal 

que da ao CP 300 uma versatilidade incrivel na sua laixa tem tantas possibilidades de 

le pode ser utilizado com programas de expansão ou desempenho gual 

cassete, da mesma maneira que com CP 300 Prológica 
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ú azem 0 que ele laz, RMB mercomputadores ss os 
pelo preço que - más 


ele CODIA. 


proOQidiTas El ÚISCO 


O único na sua faixa que já 
nasce com 64 kbytes de memória. 









Solicite 
demonstração 
nos principais 
magazines. 
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A Microdigital apresenta 


o novo TK 2000 color 


Que tal um micro de alta performance, que traz as principais caracteristicas 
dos equipamentos mais sofisticados e que não exige de você um grande 
investimento inicial? E que tal um micro que cresce de acordo com as suas 

necessidades? São estas as vantagens que vão fazer do novissimo 
TK 2000 Color um dos maiores sucessos no setor. 

Veja: ele tem 64K de memória RAM e 16K de memória ROM, teclado profissional 
tipo máquina de escrever, recebe diskette e impressora com interface já contido, 
trabalha em cores, oferece alta resolução gráfica e som. 

Peça uma demonstração. Nunca tanto foi lhe oferecido por tão pouco. 
Grande quantidade de software disponível (entre eles: diversos aplicativos 
comerciais e jogos a cores de alta resolução gráfica). 


"* Eletemtudo que um 
micro deve ter. IVienos o preço. 
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